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FOREWORD 

The Weight/Sizing Design Synthesis Computer Program was developed by McDonnell 
Douglas Astronautics Company - East under Contract NAS 9-12989 for the National 
Aeronautics and Space Administration, Lyndon B. Johnson Space Center, Houston, 
Texas. The contract involved a study to derive basic weight estimation relation- 
ships for those elements of the Space Shuttle vehicle which contribute a signifi- 
cant portion of the inert weight. These relationships measure the pacing parame- 
ters of load, geometry, material, and environment. The weight estimation relation- 
ships are then combined into the Weight/Sizing Design Synthesis Computer Program. 

This report is submitted in three volumes; 

I Program Formulation 

II Program Description 

HI User Manual 

This Volume contains a listing for each module and subroutine of the program. 
Also included is a generalized flow chart describing the subroutine linkage of the 
complete program, plus detailed flow charts of each subprogram. 
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1. INTRODUCTION 

The primary objective of this study was the development of a Weight/Sizing 
Design Synthesis Methodology to be used in support of the mainline Space Shuttle 
Program, This methodology has a minimum number of data inputs and quick turn 
around capabilities consistent with the objectives of enabling the NASA to 
rapidly: (a) make weight comparisons between the current Shuttle configuration 

and proposed changes, (b) determine the effects of various subsystem trade on 
total system weight, and (c) determine the effects of weight on performance and 
performance on weight. The Executive Sizing and Performance (ESPER) program is 
the culmination of this development effort. 

The complete listing of the input and output variables, as well as a complete 
program description, are found in Volume I, Program Formulation, and again, along 
with usage instructions, in Volume III, The User Manual. The program listings in 
this volume are as they actually appear in ESPER. They are comprised of statements 
belonging to one of two general classes: 

1. executable statements that perform computations, input/output operations, 
and program flow control. 

2. nonexecutable statements that provide information to the compiler about 
storage assignments, data types, and program form, as well as providing 
information to the program and subroutines during execution about input/ 
output formats and data initialization. 

These programs differ considerably from those in Volume I in that they are not 
self-sustaining, but rather, they are totally dependent upon the iterative compu- 
tational sequence in ESPER for their execution. 
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2. ESPER PROGRAM 

The ESPER program is a multioption sizing/synthesis program geared to the Solid 
Rocket Motor (SRM) Booster in parallel with an external hydrogen/oxygen tank Orbiter 
for either the easterly (28-1/2 deg inclination) polar (90-deg inclination) , or 
resupply (55-deg inclination) missions. Although these are the primary missions of 
current interest, the program will handle any mission falling within the inclination 
constraints of 28.5 deg to 90 deg as shown in Figure 2-7, Page 2-17 of Volume I. 

The program has two primary options : 

(a) fixed hardware, and 

(b) iterative vehicle sizing. 

The fixed hardware option determines the payload capability of a given configuration. 
This allows the user to determine the effect on performance of configuration and/or 
criteria changes, either real or proposed. 

The iterative vehicle sizing option physically sizes the vehicles for a given 
payload. It determines the size of the SRM and its propellant load, and the size of 
the external tank and its corresponding propellant load. The iterative procedure is 
based on the sizing criteria of a fixed staging velocity or it will size the vehicle 
to a minimum gross lift off weight (GLOW) . The minimum GLOW option is provided as 
it is generally associated with a minimum cost operation. 

In turn, either of the sizing requirements can be run with a fixed thrust option 
in which both the booster and orbiter thrust are set at given values, and the 
propellant requirements are determined, or the orbiter thrust can be fixed and the 
first stage thrus t-to-weight ratio input. The fixed thrust-to-weight options 
determines the booster engine size plus the propellant requirements. 

Each of the vehicles has several modes of analysis available. The orbiter, 
external tank, and booster weight can be determined by the option of detail analysis, 
while maintaining a user input dry weight, or no analysis but simply utilizing an 
input weight to represent the vehicle. In addition, the external tank and the 
booster are represented by simplified equations in which the parameters of interest 
are curve-fit to determine the vehicle weight. 

In addition to printing out the performance parameters, the option is available 
to print out the detail subsystems weights of each vehicle, providing a line item 
comparion with the current Shuttle vehicle. The other option would be a simplified 
printout, containing only the vehicle dry or burn out weight as listed in the 
performance parameter. 

Two performance subroutines are tied into the ESPER programs to allow the user 
to determine growth characteristics or vehicle sensitivities. 
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ESPER is fundamentally based on the control logic found in the Analytical 
Parametric Systems Evaluation (APSE) program delivered to NASA at ATP plus 6 weeks. 
APSE is primarily a multivehicle program in which many types of vehicles and 
configurations can be compared, i.e., fully reusable configuration, external 
hydrogen tank orbiter, pressure feed booster, series burn, as well as the current 
baseline solid rocket motor (SRM) booster with an external hydrogen/oxygen tank 
orbiter. 

Inherent with the multivehicle concept are extremely simplified weight rela- 
tions. The weight equations in APSE consisted primarily of mass fractions, with 
the booster being a function of thrust and propellant load, the orbiter a function 
of thrust, and the external tank a function of required propellant. These mass 
fractions were derived from study point designs, and required continual updating 
to meet the ever changing criteria. With ESPER being based on the current base- 
line vehicle, and the multivehicle studies dropped, the major emphasis of this 
study was directed to the expansion of the weight relationships. 

Figure 2-1 presents a simplified flow chart of the ESPER program. The pro- 
gram consists of three vehicle modules, two functional modules, and three perfor- 
mance subroutines. The vehicle modules contain the analytical and empirical 
equations and relationships required to completely define the orbiter and booster. 



FIGURE 2-1 ESPER FLOW CHART 
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and the external tank respectively. These equations will measure the pacing 
parameters of load, material, and geometry. The functional modules describe the 
vehicle sizing and the trajectory analysis. The output is an analyzed vehicle 
which, when coupled with the performance subroutines, will allow the user to derive 
growth accommodations, sensitivities, and payload capabilities. These modules 
and subroutines operate under the logic and direction of the Control /Assembly 
program. This program, in essence the heart of ESPER, integrates the vehicle 
modules and combines them in an iterative sequence for the orbiter, external tank, 
and booster. This iterative sequence, however, is under the complete control of 
the user and is altered according to the option specified by the user in the 
? PERF* (Performance) data block. The use of separate modules, which contain their 
own input/output common blocks, provide a systematic means of controlling the 
logic flow in the programs. The ESPER Control/Assembly logic is shown in the 
flow diagram, Figure 2-2, which is followed by a listing of this program. 



FIGURE 2-2 ESPER FLOW DIAGRAM 
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GROWTH 

CALCULATIONS 



FIGURE 2-2 ESPER FLOW DIAGRAM (Continued) 

To facilitate rapid turnaround and ease of updating for major configuration 
changes, the modularized concept was utilized. The vehicle modules are comprised 
of data files and subsystem models. 
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These data files are as follows : 

1. 0RB & 0AER0 - ORBITER MODULE DATA 

2. EXT - EXTERNAL TANK MODULE DATA 

3. SRM - SRM MODULE DATA 

Collectively separating the data in this fashion serves two purposes , (1) it 
greatly facilitates the locating and changing of input parameters, (2) if an 
entire module is replaced it becomes an easy task to replace the existing data 
block with the new one. 

Linkage of data between the vehicle modules and their subsystem models is 
accomplished through named common blocks ending in the letter 'D' (for example, 

' STRD, ' where ' STR' designates the model into which the data is to be transferred, 
and 'D' designates a Data common). Parameters calculated in each model are in 
turn linked back to their respective module through argument lists. These calcu- 
lated module parameters are linked to the rest of the main program through named 
common blocks ending in the letter 'O' £for example, ' SRM0, where SRM designates 
the module in which they were generated, and 'O' designates an Output common). 

The entire Formulation Concept of ESPER, that is, utilizing modularization, 
utilizing subsystem models, collectively separating data and common block linkage, 
elevates ESPER from just another sizing program to a dynamically powerful tool that 
can evolve in complexity with the mainline Shuttle program, thus adverting the 
pitfall of obsolescence. 

This Formulation Concept makes the evoluation process by the user an easy 
task, for subsystem modifications can be made without affecting the rest of the 
module, and module replacement can be accomplished without affecting the rest of 
the program. The user needs only to program the new module or subsystem, correct 
the common linkage and proper functioning is insured. 
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3. ORBITER MODULE 

The Orbiter Module contains the analytical and empirical weight estimation 
relationships necessary to completely define the vehicle. These relationships are 
combined into separate models, each model fully describing a weight group from the 
NASA functional coding. As an example, the Wing Group Model contains the analyti- 
cal relationships describing the weight of the torque box plus empirical relation- 
ships defining the remaining elements of the wing, such as leading edge, landing 
gear provision, and elevon. 

The Orbiter Module is set up to analyze a point design vehicle with minimum 
data. The NASA weight report and design data, coupled with a three-view drawing of 
the Orbiter, supplies all inputs necessary to analyze the configuration. Volume 
XII, the User Manual, lists all required input data, and delineates the interface 
with the Group Weight Statement and the Design Data Summary. A point design analy- 
sis will give a detail line-item comparison with a contractor's weight report. 

This comparison will provide insight to variations of payload and performance char- 
acteristics as well as indicate subsystems that require scrutiny, either updating 
the model to a more realistic level or possible errors in the contractor data. 

To run a point design analysis, it is first necessary to determine the perfor- 
mance characteristics, if unknown, from the ESPER program by running a fixed hard- 
ware case. In this case, the vehicle module weights, propellant, thrust, and 
velocity laws are input, and the payload capability is measured for a given mission. 
Next, an iterative case is run, using the data from the fixed hardware case. The 
payload, propellants, laws, and vehicle module dry weights are input. The program 
then analyzes the various subsystems and determines their weight. The growth/ 
uncertainty of each vehicle module is allowed to "float,' i.e. , vary either up or 
down to maintain a constant dry weight, therefore physically sizing each system to 
the point design loads. 

The primary purpose of the Orbiter Module is to provide the capability of 
analyzing an interated vehicle to determine performance trades and to lend direc- 
tion to the overall design effort by answering such questions as: 

1. What happens if you vary engine characteristics, such as Orbiter thrust, 
or specific impulse? 

2. Is the staging velocity optimized? 

3. What is the minimum gross weight vehicle for the users constraints? 
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4. What is the effect of changes to the primary construction material? 

5. How do geometric changes, such as aspect ratio, payload bay length, or 
width, effect the configuration? 

The inputted parameters start the Orbiter Module iteration for which liftoff 
weight, injected weight, etc., are calculated. These calculated weights, in turn, 
modify the aerodynamic surfaces; the wing area changes to maintain a constant wing 
loading and landing speed, and the tail changes to maintain control capability with 
a constant tail volume coefficient. In turn, these modify the surface controls and 
the thermal protection system. The auxiliary propulsion system is affected by 
injected weight and the landing gear by the landing loads. The body is modified by 
reaction from the above systems which, in turn, changes the interstage loads which 
ripple changes back through the body. The entire module continues the iteration 
until a completely balanced system exists. 

Figure 3-1 is a flow diagram of the Orbiter Module, followed by the detail 
listing of the Module. 
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FIGURE 3-1 FLOW DIAGRAM 
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FIGURE 3-1 FLOW DIAGRAM (Continued) 
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STRUCT 



FIGURE 3-1 FLOW DIAGRAM (Continued) 
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FIGURE 3-1 FLOW DIAGRAM (Continued) 
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FIGURE 3-1 FLOW DIAGRAM (Continued) 
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FIGURE 3-1 FLOW DIAGRAM (Continued) 
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c 

C n Y" S L^NrERSN C*LCUL*T 1 9N 

5 96 

- 

5*«,oo3 


3 ;3 7.11S*»ay*Sma^»?.*1.?8»i.S 

557 

- 

5*7000 


3P.-3?5+BPf *3?7 

50* 

- 

5** OOO 

c 

TUUJ3T STRUCTURE CALCJLATI8NS 

s c n 

- 

5**000 

0 

Turjst dart 

6^ 

- 

609**00 


LE»(LTV»»?+hTV«*?)*»«5 

501 

- 

601 OOO 


FT=. ft*. 03395 

505 

- 

60*000 


3? 9. ( ( T9 V» N0EN39 ) /FTP)*LE*RM3TP*DFAC*2. 
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- 

6.0*000 

c 

TMPJ3T GJMBAL PLANE BULKHEAD 

504 

- 

604000 


S 33 .RW*DR„( ( TPv*N9ENG9*SIN(A3I/57»2958)/(2**FAP3) 
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• 

605 *00 O' 


l*nFAC«FS)»( A**HF>2.*WBCT*12.)*(TdV*NBENG9*SlN( A5I/57*295«I 
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- 

606 . OOO 


2«*?CT«l?./(?**TAiPB> ) )»2. 

5 0 7 

- 

607*000 


331»N9ENG9»230- 

50 ^ 

- 

60® • OOO 


3 a ?-329+G30+391 
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4Cn 


43**000 

0?1»<4 

4 0 


410*000 

314.4.7* ( ?V* • CO 1 )**.6 

M 1 


41 1 OOO 

3l?«3?50?6 + 3P7 + G3? + 33* 

4 1 


41?. doo 

ST*>»S?5*G?3 



411.000 

GT7»3?+"?A*;i3A 

41 * 


41 4.000 

PE T JR'J 

4n 


4i soon 

EMO 

51 4 


414.000 

SU079JTTNE THrp^g, ws3j tfEsr,,TS3» T0TTPS, T PGwT , wGWT » PGLErfT* TWT* TLEWT 

^17 


41 7*000 

1» U L^T = S»B*SE*/T,I 9TWT* ^PSCN, TTWT» PTPSwT, MCSWT, LDTWT 

41 * 


41 B.dOO 

2#PP9wT, oppc, »hv;, scwT ) 



41 1.000 

IMPLICIT PEAL(*-Z) 

4?o 


4? 0 • 0 0 0 

Cf’~i^9\/MAi\j/ = P9 = 9 / pi?9P9,9BT» 9C ANT* SCANT# SCANTY 



4 ? 1 .000 

l»' 1 CA'JTP»'J r *ENj n /'^9ENG9» TH3SL # TH9SL# TH0 V# T0V»Fl6PP 

4 ?? 


431.000 

?, TP. PTw. F I *HPr> 

f ?1 


431.000 

9. I 9^99 1 IGPPV. ! 9 = 9 95# 1 5°03V# SCO* 9Tw 

4?4 


"4^4.005 

4/M, 9VC99P, InC, STA3V,DVC9n, DVCNST 

4 3=; 


434.000 

5#PiL*T^9TC»TMP9LT»TH9TC#IS°9»ISPB»PRBP9T 

4 34 


434.000 

6 < PP9P91»PP9P9?,P^(2)»9V9MC»OV0#OVT9TC,rf9SC')» 9INHT#9LANWT 

437 


437.000 

7i t 'I\)jAT»9L9wT»93L9A',3LBW,T9T*L#S»P#MfTCH/TLSSR# r:,t ’P 

4?1 


4?9 . 000 

9»P-n_->*''ll=L9,9L9dLa* 9“SIS°*9M5DVT*0M53VP»9MR 
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P»L9\|jP* T9..I9/ T9 a/ 3, SENS* GR9W# Ml N3LW 

4 in 


'410*000 

G** 'l H9M/THE RD/ V C T D 3 * NCA»PWOTPS/P*)OA#CTTPS#CTA,C?T 3 S 

4^1 


411 .000 

1»CGa#C°TP9*C3a,atT p S» ATA> AST°S» *SA» ABTPS# A8A,RASTPS 

413 


413.000 

?,(U^a, TDS r9N»wGTPS* WG 3 LE<WLETPS#TUTPS/ TUPLE 

411 


411000 

9i TL- T°S» “CST 3 ?. ICS A, rfACON, TAC3N# IMA, IBTPS* IBC»LD* 

4 1*4 


414000 

9.L0TPS.B99A, pp9TPS»PR9C*°PC#HYC/SCA#SCTPS«SWI*S^:»WSI 

411 


414.000 

5* C ■ a/SG 

41s 


'414*000 C 

w/s 

417 


417.000 

W4C*9L4NJWT/(SWI+SVC) 

4-?* 


419 000 

Di l vt- ( *SC/WSI ) * * • 1 25 
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411*000 C 

5‘OY T OI3WT 

' 443 


440*030 

vJCWT«\CTPS*NCA«OJ 1 VT 



441 .000 

PW0^T*P^f>T 3 5*P^D4*0U MT 

*iT5“ 


TiT5 . o o 0 

CT WT*Ct TP*:* CT A OLMf 
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*41.000 

C5WT»CSTP!?*C5A*3UWT 

44 4 


"444000 

C‘VT«CRTPS»C:5AOlMT 

441 


445000 

CT0TA-CTA+C54+C3A 

4 4 4 


444*000 

CTiTWT-CT/T OlMTOBwT 

4 47 


447.000 

aTa'T«aTT d S*ATA*OU^T 

441 


449.000 

A1O»^5Tp^*aSA*0U-VT 

44 1 


441. 000 

amwT«aptps*A3A*0UWT 

4 1 ^ 


450.000 

AT9T4«ata+ASA+A3A 

411 


451 • O00 

AT9T VT« a T a.'T + APwT+ABwT 

44? 


453000 

5L ^ T °S ■ N T ♦ " k'O aIT ♦ C T9 T W T + A T 9 T W T 

411 


451000 

lASr^T-iACTP5#?ASA*DJWT 

4 1 4 


454.000 

I p T ^T«I1A*IBTPS^I3C 

411 


455000 

ITil^T.NiC •JT + r^0WT>CT9TiA/T + AT9TiT>BASEWTA'TPSC0S+l3T^T 

4 14 


454000 C 

*' I Ml T°3 E I 3 ^ T 

417 


457.000 

-UBAtSfi* ^AC9N 

411 


45^*000 


411 


451.000 


441 


440000 

rth^T»^3TPRA#A/lTPS*DU^T 

441 


441 *000 

^CiL^a’T»^GLEA*i*'LET 3 S*DJ^T 

44? 


453000 

T *f 3 aI T * WG WT ♦ kv 3LE i^T 

441 


441000 C 

Tail TP5 WEI3MT 

~444 


444.000 

T^a »T13*TaC9M 

441 


445*003 

TL? A»T^A*TLPL r 

444 


454000 

TT?3A.T*M-Tl2a 

447 


457000 

TwT ■TTPSA*Tl7P1*3JWT 
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449000 

tle wt»tlea*tletpsouwt 

441 


441000 

TT.VT«TwT+TLEWT 
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*71 

- 

*70000 


''r5^T«Mr«:T = S»“'C3A»DLIWT 

*71 

- 

*71 030 


LnT^T»L'i*»LOTDS 

* 7 P 

• 

*79. 00_0_ 


ouHT^PRBAifPPsTPSAPRSC . - 

*79 


*71000 


3C .'T«?C**3CT = p 

*74 


*74000 


T9TTpS»RTp3wT + Ti>,3VT ♦TTWT+MCSWT 

*75 


*75*000 


l+LDT*T+ppi,.VT* PD C* l -irC*SCWT 

4,74. 


*7*030 


otpsCV»TP3C0N 

* 7 7 


*77030 


DPOr.PP£ 

*79 


*7 4 000 


PHY'.-IY c - 

*7? 


*79*000 


PET JR\. 

*M 5 


*13*000 


END 



*41 ODD 


SJPP9JT INf ASCENT! TA p T?P#E'IGPAC#EN3»TvC»Ce'JTP/®R :> UTU 

4, P ? 


*39000 


1, PP03 ^S» P A0, 3PE3. CH IL» D «EVAL»PEEOS» 01 SC»1 ISC) 

*49 


*31033 


PE*’. ''ISC.HISCF# JAC/S9EN36 

4,HU 


*P4 * 130 


Chmv( 5'!/'1AIV|/ pP5°3»PPT a 0*T'9T» SCANT »6 CaNT*0CAvjTY 

ZT5TT" 




1, , )i:AMTP. 1 «arN3^iAI5EMS9» T^rsL^fnSSL/THSv* TOV.FlS^^ 



* 3 * • 900 


5#TF*FTV#FIXhPD 

~ <»«7 


*3 7*000 


3. IS=9S» I SP3V» IS=99S#13®89V»SC0»BTW 



*3 8 • 300 


4»H, DVC9RR* I NC# ST A3 V»DVC8N# DVCNST 

4.P7 


*31*000 


5»PEL» T-ipTC#T4?SLT* TM9TC* IS°B» ISPB»®R0P3T 

4,^5 


*90*930 


A,PR9P91 . PP5P9P#FW(e)*DV8NC»DVB#DVT9TC.W9SCD«9lNWT*9LANWT 

*91 


*11 *900 


7>MtNj;«T<9L9wT*93L9W#5L9W#t9TAL/S#P* MATCH# TLSSR*F**P 



*19. 900 


9*'>H3LD.BLLPL9#9L9wL0»1MSlS®»8MSDVT»0MsDVP»9Mp . , 



*19*330 


9# L9M3 : ’* T«).v5/ TPWS.SENS* 3R9H#NIN3LW 

Aqu 


*3 4 • 00 0 


C‘’ v I'‘19N/ASPD/ = ' , G9#SPI#HHEAD#8HEA!>iHULL»9ULL»FTU*RH8 

* p 5 


*15*930 


1»matl»pCLEN»9CLEN# HELEN* 9ELEN»CPLSI 

4,04, 


*1**330 


arsjTNiM*! • 0 

4, 97 


*17030 


B~0^3«*3?*. 



*1* • 930 


E?L 3 »l*??5 

4,09 


*11*030 


BE T HS t »4 7P300 • 

7 Cl 


793*030 


B p JTL»1 9 * 

701 


731*900 


9F49« 77? . 

791 


73? • 900 


lPi“?*l 097* 

701 


791000 


BC^T L* 1 33* 

704 


794*900 



701 


795*990 


B91AIM-1?. 

70*, 


79**300 


9 P 95?«190* 

707 


797000 


B9I 43*17. 

707 


70°O90 


3 r S ■ 3 • 

7 0 9 


”73^000“ 


SJPTF»?S. 

710 


713.000 


-m?3P*5D* 

* 711 


71 1 *900 


9H999»5D. 

719 


71 2 090 


* I SCF* 1 0 • 

" '711 


719000 

c 

CALCJLATE HAlN EN3 I N£ WT » 

714 


714000 


EC3T-?AEN3/9ETHST*»ESLP 

7T*T 


7T5 • 300' 


— • N3 j-EC5T.Toy»*“SL‘P _ 

71* 


71**930 


EN3»N9ENGD»ENG’J 

717 


717*900 

c 

CALCJLATE T VC WT. 

71« 


714.303 


TVCJ«OOnAP?»T9V+?D9* 

711 


719*930 

• 

TVC*TVCJ*N9ENG9 

7?9 


70*939 

c 

CALf!JLATP I GN I T I5N AND C9NTB9L WT* 

701 


711 00 0~~ 


C n NTP«377. +A7. •N9ENG9 *p830*N5EN39»53»3A 

7?9 


711*900 

c 

CALCJLATE °R9 p ELLANT JTtLIZATIBN SYS WT* 

7?1 


711*900 


ppp JTl»3PuTL 

7?4 


714 . 300 

c 

CALCJLATE FILL AND DRAIN WT* 

7?5 


715*000 


FAD-9FA0 

7?* 


71**300 

c 

CALCJLATE PRESS JP T ZAT 1 9N SYS wT. 

717 


717 .IOO 


PRES«9P>ES» ( ( T9V»N8EN39 > / < 9ETHST*BENGN8 ) ,**.5 

7?4 


714*900 

c 

C*lCJL*TE CH1LLD9WN DUMP SYS WT* 

7 ?i 


711*030 


C w I '_ ■ ( 9CHIL/3EN3N9)»( T9V/BETHST)»**5*N8ENG9 

730 


790*300 

c 

CALCJLATE RECJRC SYS WT* 
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731 - 

771000 1 

7 - 

773.700 

733 - 

777.000 C ( 

7?4 - 

734000 : 

7*33 - 

736.030 ’ 

7?6 - 

736.000 

737 - 

777.300 

73* - 

73*000 C 1 

■’*31 - 

_7.1±?SM 

740 - 

740000 

741 - 

741 OOO 

74? " 

74 ? • 3 0 0 

7 4 3 - 

7 4 3 * n 3 3 

7 4 * - 

744 ODD 

743 - 

746000 

7kl - 

746.300 C 

747 - 

747000 

7 4 3 - 

74*000 

74 3 - 

743.300 

7?D • 

730000 

761 - 

751 OOO 

7KP - 

75*000 

763 - 

763000 

7S4 - 

754.333 

7b* - 

755*000 

7^6 - 

756000 

7*7 - 

757000 

76* - 

75*030 

763 - 

75 3 OOO 

763 - 

760000 

761 “ 

761 • OOO 

76? - 

76*000 

76 3 - 

789000 

764 - 

764000 

76^ • 

765000 

766 - 

766000 

767 - 

767000 

763 - 

76*000 

767 - 

769000 

7 7') “ 

770000 

771 - 

771 OOO 

77? - 

77 ? • OOO 

773 - 

773000 * 

774 - 

774.330 

773 - 

775000 ! 

77S 

~ _ 7TV.000 * 

777 - 

777000 i 

773 - 

77*000 

7 73 - 

779000 

7*3 - 

7*0000 ! 

7*1 - 

7* 1 .300 

76? 

”71? ODD 

7«3 - 

7*3.300 

7*4 - 

7*4000 

7*3 - 

7*5000 

7*6 - 

7*6000 ! 

7*7 - 

797000 i 

78* " 

73SOOO ! 

7*3 - 

7 * 9 . noo 

790 - 

7^3000 

791 - 

791030 


IF(R p T • 3 T O • ) CH I L ■ O* 

CALCULATE VALVE WT. 

D! 4 IN-BO I AIM* (T9V/BEHST ) **.5 
VALVE- 1.5*?OtAIN**l *74 
5?»V-N9E NG9 *(VAlVE4P939*3P939) 

*I?dV-OENG9« VALVE 

C A L^ EXT TAN< DISCONNECT WT* 

OlOODI *:•( (T0V^LNj9L/J3rTHST»BENQNan» # i5- 

0IA0R«(.l?5OIAD**2.)**O 

Dt*D0*S o I*(*5*DI A 0**2*)**.5 

IF(5 P I .EDO* ) 0 I ADO-31 a D 

H?DV-1 .5*?*DI AD»*1 »7R 

9?DV«SPI*?.*1*5R2*DIAD9**1.7S 

IF ( q»T *FQO* ) 823V-H20V, 

CALCULATE PEED DUCT wT . 
-|P4rs»HULL*HHFAD*3ES*AO/l72?» 
gpRf S-0 JLL + OHFAD# 3ES*71 • /I 7?**> 

TMD«^ p ^FSOI AD/FTU 
tmoh- n • 

I F MA TL • ED. 1 ) THDH-.0D2OI Ajy-O_08 

"IF MATl-FOO) Th~DH- 003*01 AD + 0 10 
IF(HATL*E>3) THDH-O03OI 4D + O30 
IF('iATL*ED*4) THDH*.0D2OIAD*O24 
JF(T-CH.GT.THD) thd-thom 
T 90O p RESO I AD9/FTU 

T*DH-D. _ — 

J F < M A TL • E )• 1 ) T3DH-.002OI AD9+OCI8 

IF(^ATL*E3.p) T8DH-OD3*OI AD9+O10 
IFM*TL»E3*3) T3DH-. 0030 1*05 + *030 
IF ( HA T L • E 3 * 4 ) T3DH-.C02OI AD5+.024 
I F ( T9D y * GT • TOD ) TO-TO* 

The.hppes*2 IAI_N/.FIU — 

T9E-9 3{ *ESOI AIN/FTJ 
TE M ■ 0 • 

IFfHATL.ED* 1 ) TEH- *002*01 A IN* *008 
IF MAIL* EDO) TE^« *003*01 AIN*. 010 
IF(HATL«E0*3> TEH«.009*OI A IN* *030 

_I r (HATL*F"»*A) TEH*. 003*0 I A I N». 0,2,4 

IF(THE*LT * TE H } THE* TEH 
IF(T9E#LT.TEH) T9E-TEH 
HPJCT-HCLE v i*3. 141 8*DI 4D*THD*RH0 
^♦HELi s ‘*N0ENQ5*3* 1 A1 6*01 AI N*THE*PHB 

JAC*HCLCN*(3*lA16/2* ) * (2.OIAD)*3»l4l6**0l2 


HOJCT*HDUCT*JAC 

90JCT*9CLEN*3» 1 A1 8*01 A09*TOO*RHD* ( 1 **SPI ) 


Y- Ol 2 

Z-HOU 

I F ( C°uRI •F0*1« ) Y- • 128 
IF( C°tOI »E3* 1 • ) Z-8-2* 

HC9J p L*3«*N9EN39#{Y*DIAIN*Z*« 193*DI A I N) 
S«-N9-N33*(Y*DIAIN + Z*< • 286+RH9 ) *0 I A IN/2. ) 
S»N9E N 39 * ( Y * 0 1 A I N + Z *RH3 *DI A IN) 


5+(Y*DI A0 + Z*( • 1+RH9 ) *DI AD/2* ) 

X*( Y*0I AIn*Z*( .298^RH9) *01 AIN/2. )*N0En3Q 

IF(RH9.3T,.25) HC9UPL*HC9U p L-X 

9C9 J P L*3* *N9ENG3* ( Y*DIAIN4-Z*«193*0IAIN) 
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4. EXTERNAL TANK MODULE 

This module contains the analytical and empirical weight estimation relation- 
ships necessary to completely define the external tank. The basic sizing logic 
consists of three basic general arrangement options and three separate iteration 
techniques, i.e., solve for specific tank dimensions as a function of volume 
requirements with either input of fixed length, fixed diameter, or fixed L/D. 

Design features, such as separate and common bulkhead and an alternate forward 
section design are also included. A LOX aft option, which simply uses the general- 
ized baseline LOX forward method, setting mixture ratio to its inverse and switching 
the hydrogen and oxygen densities, is also available. 

The external tank module includes a design loads model which considers ullage 
and head pressure, interstage reactions, and axial load factors. 

A multistation analysis method is included, whereby a number of body station 
cuts are examined to determine the effective unit load and corresponding material 
thickness required for pure unstiffened Monocoque structure. Alternate material 
allowables may be input to handle variations in design temperature and other candi- 
date construction techniques. The resultant material thicknesses are integrated 
over the total body area using the dimensional data from the sizing routine, to 
determine the total sidewall weight. The bulkheads are sized to their representa- 
tive loads, i.e., internal or external pressure, and meridional and hoop forces. 
Splice rings and attachment structure are treated as discrete items, with major 
attention given to the redistributions of point loads and manufacturing processes 
such as welding. 

The external tank thermal protection system is based on detailed MDAC point 
design data with input unit weights for alternate design concepts. 

Other external tank subsystems are expressed as either input constants for 
such systems as avionics, or simplified sizing equations, where, for example, 
plumbing weight is a function of engine flow rate and overall tank length/diameter . 

Figure 4-1 is a flow diagram of the External Tank Module, followed by a detail 
listing of the program. 
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FIGURE 4-1 FLOW DIAGRAM 
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CJLATF 9 x Y TNK CYL 
VE CYL 
STAGE 


TO RESULTING hEaO PRESSURE 
FOR OXY TANK CYL WALL ANALYSIS 


WALL HEAD PRES 5 H0X( I ) 

RASE BY C9MRARI_NS_1ITH LlFT-OFF^AND 

HEAD HEIGHTS AS CALCULATED PREVIOUSLY 
?• ( homp-h9X ( I ) ) *0DEN*NXS*FS/1728. 

1 ■ ( hoh-HOX ( I ) ) »0DEN*NXL*FS/172H« 

OHC 1 • LT • 0HC2 ) 30 To 63 
y ■ a HC 1 

TO 64 _ 

Y-OHC? ~ ~ ' 

OHCX. LE*0- ) OHCX-O* 

W ULLA3F PRESS TO resulting head press jre 
T ( I ) «OHCX+ D ULL0 

C JL A T E FUEL TANK 3ENDIN3 FOMENTS 

n*o. _ 

CJLATF OXYGEN TANK3ENDIN3 HONENTS 
I ) *D» 

CJlATE FUEL TN< THICKNESS REQUIRED DUE TO ULT PRES 
( I ) *fmcT{ I )*D*. 5/PTU 
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153 - 

- 

157 - 

155*000 C 

155.000 

1^7.000 C 

CALCJUTE OX Y TNK THICXNESS REQUIRED DUE T9 JIT ’RES 
mt I >«9MCT( I IO»«5/FTU 

CWF'< nifL TNK THICKNESS S SET • 93 GREATER TRAN TNIN . 


15* - 
159 * 

in - 
->71 - 
17? - 
171 - 

15« *000 ” 
159*000 c 

170*000 
171 000 C 

071.OOO c 

171000 

— IF (TFT ( I ) . LT * T»i I sj ) TFT( I J.T'ilM 

che:> ixy tn< thickness & set ■ or greater than tnjn 

IF(T*M I) .LT.TM1N) T9 ( I ) ■T'l i n 

CALCULATE Jl T LIFT- 9 C F ft 2ND STAGE AXIAL LOAD JSE 
/HICH EVE 3 IS GREATER 
ALT •'1AX9!T*FS*NXL 


774 - 

174*000 

~ AL?«X0 >0?*rs*Nys 


177 - 

175*000 

A L ■ A L 1 


9 7*> - 

175. 900 

IF(AL?.GT.ALi ) AL»AL3 „ M 


177 - 

177. mo C 

CHr : < margin 9F SAFETY F9R COLUMN BUCKLING F 9R 3*0>'S 


17* - 

1 7 Q • 0 0 0 C 

A\n ax|AL LOAD HITH INTERNAL PRESSJRE STABILIZATION 


171 - 

171*000 

nmr».5»0/TFT( I ) — 



1^" ~ 

”9*0.000 

'fLi7»(L-MC-H^-HN-HFX(I))/(*5*D) 


1*1 - 

111 *000 

IXT.r^OT 


1 p *> - 

1H1.000 



IP 1 - 

1*1*000 

TX.TPT ( 1 ) 


1 S 4 - 

114 * 000 

TP?m.FllP9£S 


1H7 - 

115.000 

MX«'1P( I ) 

— .. 

- 

“m 5 * 0 0 Q 

T9 70 


3«7 - 

137,000 

59 PXT-l^lT 


mu - 

im • 000 

L > I** 5 


l«i - 

111. 000 

T X • T 9 ( I ) 


inn - 

110 . 000 

jp^rs.o JPPES 


mi - 

mi * OO0 

*X«M? ( I ) 



m? - 

~mi. mo 

A L ■ 1 • 


mi - 

111.000 c 

CUPvF FIT ?F RRJHN'S jPAPHS 


m <+ • 

114 * 100 

70 IF(LXl.OT.lO) 30 T0 73 


m3 - 

1 1 n • 000 

A»7.3M?7«..2A«>96?*LXR 


10 5 - 

115*000 

I F ( i_XR • 3T • » 2ft ) 39 T9 71 


107 - 

117 • 

r .7 .?aa03*7.93752»LXR 


— - 

—711 .000 

jO r? ?* 


1 m - 

ill • 100 

71 IP(LX : ?.0T..5) G9 T9 72 


400 - 

400000 

F-9. 34345 


491 - 

401 OOO 

m T9 7 n 


4 07 - 

401*000 

72 FO.511 «l-*50l76*LXR 


4 71 • 

401.000 

31 TO 79 


4 04 - 

41 4 * 00 0 

'73 jF(.XP*0f .4.0) 30 tQ 74 


4QS - 

4 15000 

A«h.305P5-.671565*LXR 


4 95 - 

405 . 000 

IF (LX9#LT.?.0) 35 T9 72 


4 07 - 

407.000 

75 p»5.5««55-.21?1344LX9 


4 0* - 

4 0 P • O00 

31 T9 79 


4 0 n - 

4 11*000 

74 in 1 X?.3T.5*0> 39 T9 75 



410 “ 

410*000 

A ■ 5 • 5 1 5*5 


411 " 

41 l .000 

31 TO 75 


41? “ 

41 1.^00 

76 IF(LXR.GT.16»0) G9 T9 77 


411 - 

41 1.000 

A»6»a7?GR-» 1A»A09»LXR 


4 14 - 

41 4.000 

IF(lXR.LT.A.O) 30 TO 75 


4 13 * 

4 1 5*000 

7 H r«a.??l56-.13G275»LXR 



41^ - 

415*000 

G‘t T9 73 


417 - 

41 7*000 

77 A «5. 1 A06S-»061S65»LXR 


4 1 1 - 

41 «*ooo 

39 T9 7 A 


411 - 

41 1O00 

79 B«LXRX ( - • 62A9A7»LXR-* DD79A7 ) 


470 " 

410.000 

3»LXR/ ( -.626D75*LXR- .330016 ) 


4P1 - 

411*000 c 

CRITICAL STRESS CALCULATION 



5^5—=- 

5??O05 

A *9xt**3 


4?0 - 

411*000 

FC9»FCpr#^ 


4?4 - 

414 . 000 

rupr.F * pxt**3 


4?5 - 

415.000 

pnR*r^r»r 
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4P6 

• 

4^6*^D0 

c 


CORRECT F0R INTERNAL PRESSURE STABILIZATION 

4?7 

- 

4P 7 . ?13 



Dyr,r= , l"S#^XT** 2 /E 


4?1 

“ 

4 :>7 030 



QPLAX» c> XE/'( i i«Al 1 fD5*PXE + .6035S3) 


4PT 

- 

47 3000 



0LF~lOELAX*E*TX/.5*3 


4 10 

- 

410000 



FpT,T=RES«.5»P/(2.*TX> 


471 

- 

411 030 



□a. (FCQ+ 3L r CR+F»T) *2*97451 *0*TX 


4 IP 

" 

417000 



OEL*^»* 076601 * p XE»* *21 349p 


477 

- 

4 1100 3 



0LFiM»3EL3M#E*TX/( *5*0) 


4 74 

- 

414000 



• 1 A. (C39 + 0LFBN+rPT)*.7i»6l2*TX*D»*2 


415 

- 

415000 

c 


:‘l:jlate narrin 9 F safety and increase t 

ie inadequate 

4 36 

• 

416.000 



iri. AL /*AOX/MA 


477 

- 

*VOOD 



ifircb.lt.io) go to 01 


4 "3 5 

• 

4 17 00 3 



ry-TX + ooi 


4 7 '» 

- 

411. 000 



iv T..50/TX 


4 47 

- 

4 4 0 000 



0 * TO 70 


4 4 1 

- 

441 - 000 


71 

IF(P_^i.r' J-L xpj q 9 T5 r 2 


447 

- 

44 p • 000 



irn L 91.E J-LKO) G9 T9 33 


4 4 7 

- 

44 1 OOO 


72 

TFT ( I ) ■ TX 


4 44 

- 

44 4 000 

c 


5U M fJEL TAN< T'S FOR AVERAGE CALCULATION 


4 47 

- 

44 5 000 



T4r,TAF + TTT< I ) 


4 46 

- 

4 4 6 0 0 0 



4R9T-*5*0/T0( I ) 


4 47 

- 

447000 



9L?1«(M9-H9X( I > )/( *5*0) 

, 

4 4 c 

- 

447 . n 00 



on T4 60 


4 47 

• 

441000 


71 

T° ( 1 ) ■ T X 


457 

- 

4 s 0 0 0 0 

c 


SUM 3 x Y TAM< T»S F 9 R AVERAGE CALCULATION 



• 

451 000 



TA4 c TAn^T6(l) 


4?jP 

* 

431.030 

C 


:al: r jel tn< cyl wall wt ado .005 to t for natl tolerance 

4S7 

- 

431000 



wFf t J.CTFTU )**035)»3*1A1 c '9»3»«125»HF»Rh0 


4^4 

• 

454 . 000 



A|cy«^xiWF( I ) 


4^S 

- 

455 . 300 

c 


c*l: fuel tn< circj mc erenti al weld e 3.5 

WI3C 

4b^ 

- 

455000 



WLD- (I )« (TC-TU) + .3 05)*3*U109«D»3*5*RH9 


4 77 

- 

457.000 



WLD"*««LDFX*WLDF< i ) 


47 P 

- 

4 5 7.00 

_c 


cal: 4xy ink cyl wall wt add *oo 5 re t fir 

matl tolerance 

4b7 

- ' 

451.O00 



W*M | )»ITO( I ) + .005) »3»lAlb9*D»»125»H0*RN0 


4 O 

- 

460.000 



*nx«*.Qx*W9 ( I ) 


461 

- 

461 OOO 

c 


cal: ?xy tnj< circumferential *elds s 3.5 

WI3E 

46^ 

- 

46 p • 00 0 



NLD9 ( I ) • ( TO ( I ) + OD5)*3.1M59#D*3.5»RH0 


4 67 

• 

461003 



WlDOX^LDOX + WLQOI I ) 


4 64 

- 

464 OOO 


7 4 

CiMTlvijr 


46l 

• 

465000 C 


delete ^io CIRC WELDS IF Tnk IS SHORT j.E# 

LOX A r T/Twj 

4 66 

- 

466000 



IFMO.RT.HH) RO T3 85 


467 

- 

467.000 



WL01T«^L09( 1 >+WlD9(9) 


467 

“ 

46" • OOO 



WLO- T-wlOFV 


4 61 

- 

46*000 



06 T9 36 


4 7 7 

- 

470000 


75 

WLOiT ■^ l LO c, X 


471 

• 

471 OOO 



WL0-T»WL3F < 1 ) +WLDF (9) 


4 7P 

“ 

47P 003 

c 


9 1 NO MINIMUM GAUGE 


4 77 

- 

471003 


76 

AMf g .3 4 • *T M I N 


4 74 

- 

474*100 

c 


A V E 9 A 0 E FUEL TANK T 


4/7 

- 

475003 



AVfTi T AP/1. 


4 76 

“ 

476000 

c 


AVE 1 A !£ MVYGSN TANK T 


477 

• 

477000 



A V9T«TAM/li 


477 

- 

477.000 

c 


cal: no. OF LONGITUDINAL welds 3ASED ON 156 WIDE SHEETS 

4 7^ 

- 

471000 



CI9-1. 14151*3 


4 7 7 

- 

470000 



D'f A7 I • 1 » 103 


471 

- 

411 OOO 



S>» 156**1 


477 

- 

471*330 



IF (RX.RT.CIR) RO TO B8 


47 1 

- 

411*000 


7 7 

continue 


4 74 

- 

474.100 


77 

3 C R.SV/1 5M 


4«5 

- 

475000 

c 


:*l:ji.ate inter-tank section weight 


4 76 

“ 

476000 



T I NT« T9 ( 1 ) 
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4 p 7 

• 

4^7*000 

4HB 

• 

433.000 

4X7 



477 


u'oono c ! 

4Q1 


431*000 S 

i*ap 


4OP.O00 

403 


03000 C ! 

4 04 


474*000 * I 

405 


„<L’5O30 C ■ 

4 7', 


405000 

407 


477*730 

4 77 


473*000 C 

4 n 0 


4 0 0*000 

boo 


soo.ooo 

5^1 


SOI •')')') 

S~0 


SO ?. 00 0 c 

SOO 


SoOOOO 

S04 


S 3 4 • 000 

SOS 


STS. TOO C 

s^, 


S OS * 700 

SO 7 


SO7.OQ0 

SOS 


^03.000 

soo 


s 0 9 • 0 0 0 C 

sn 


snooo 

sn 

- 

si 1 *000 

Si? 

- 

snooo c 

sn 

- 

sn* 700 

:> 1 4 

- 

si 4 . 000 

sis 

- 

SI S . 000 

~ 1 A 

- 

sn.ooo c 

>17 

- 

S17.000 

SI 0 

- 

sn*~oo 

sn 

- 

_sn*ooo 

SP7 

- 

sp 0*000 C 

spi 

• 

spi *OD 

SPP 

- 

spp.700 

s ?0 

- 

SPO.noo 

S?4 

- 

SP4.700 C 

sps 

- 

«? 0 • .7 0 0 


If 

SP7 

A?7 
5 00 
S31 


S30 

534 

SOS 

=.17 


SP* 

SP7 

SPH 

S73 

S30 

_S7J 

S30 
S 7 4 
S75 
S7A 
F77 


IF(T9U)*LT.TFT<9) ) TTMT-TP"Tf9) 

WlNT.(3-l4l59*D+3.5*SE3>»<TINT*.OO5>*(2.*HR*LC9NMRH0 

I f ( ol<H 0 .r% 1 • 0 ) 4 LN.I* 3 *..._ 


Cal:JL*TE >UEL TNI< LONGITUDINAL WELD WEIGHT 
LWLDF«wf*3EG*3*5M AVRT+*005 ) *RH9 

j F ( <-40* £3 • 1 *0 ) LWLD Cb HH*SE3*3*5 # (AYFT4 > *005)*RH9 

CALCJLATE 9 X Y TSK L9N3I T JDl NAL WELD WEIGHT 
LWLG9«H9#SEG*3» 5*( A V9T+*0O5 > *RH9 

_AF T r JEL. BLKHD THICKNESS — 

T afo«pFD9H#R/ < 

I f ( TAF p# LT* TH I N ) T A^3* T H I N 

AFT r JEL BLKHD 3IN3 A ?E A SIZED r 9R ELASTIC STABILITY 

\jAF7«(PF09 v, *R/?»)*SIN(30»/S7«2953> 

aafp«{\jafr*(*SO)«*3/<3**E>> ## *5 

I r ( AAFP*LT*AHTN) AfFR-AHlN 

AFT 9>Y RL<HD THICKNESS 
TA*n»39D0H#R/(?.*FTJ) 

IF(TA7B«LT*THIM) T A0 H» T H I N 

aft 9XY «L<HD RING ARE* SIZED F9R ELASTIC STABILITY 
\ja < P0D9H*9/?* ) *SIN<30* / 57* 2953 ) 

AAS7«{\M9P*(tSO) •* 3*.»E ),) **5 5 — 

~IM A A9R.LT* AMIN) A A 0 R ■ A M 1 N 
FWO c- JEL BLKHD THICKNESS 
TFFr.pjlLF^R/ ( ?• * r TU) 

I F ( jrrR # LT • TN T N ) TF C 3* TH I N 

PO r JEL BLKHD R I MG AREA SI7ED r 9R ELASTIC STABILITY 


7Q0 

^00 

700 

000 

000 

^00 

000 

700 

000 

000 

700 


~AFFp B (MFFPM *s*3)**3/(0**E) ) ## • 5 
IF(ACFR.tT*AHIN) AFFB-AHIN 
WEIGHT OF AFT 9 X Y BKHO RING AVJO WELD 
^*47. ( TA9R**005 ) *?• *3* 1 415R»H*HR*RH0 

^AOR«7*1A1S9*7*Rh9*AAOP 

^A7^,PW9*3*5*(TA93^»OOr ) » 3 * 1 A 1 59* ( * 333» R» SEG-i£l. 
W r I GHT OF aft FJEl BLKHD RING AND WELD 
vJAF7*(TAFB+*0C'S) *?• *3* 1 M 5O*3#HR*RH0 

WAro*3»l4159* f> *RH9*AAFP 

.^AF v«R-(9#0«5M TAF9 + .005 > *3* m 59* ( • 333*R*SEG*D) 

WEIGHT OF FwO FJEl bl k ho ring and WELD 

_*'Fn« ( Tc-F~*. D_D5 ) *E.»*3vlAlb?*R*HP*RH_Q . 

W F F o ■ 3 • 1 4 1 5 9 * D * R W 9 * A F F r 

^F^W9*7.5»(TFr3 + .0D5)*3*14l59*( • 333*R*SE G*D ) 

! F f Bl<HD*E3. 1 * 0 ) 39 T9 00 
GO T9 9 1 

C flv M9\ BLKHD T-BA? BASED ON REVERSE FUEL ULLAGE 
PRESS JRE AND 159- GRID M ATl» 


*90 TfR7-U0006Y44.(O00020*>* r BPRES) )»R 

C WEIGHT OF C0YM0\j FUEL BLKHD *N0 WELD 

wrF3-TCFP*2* *3* 141 59#3*HR*9H9 
wc.fw-RH0#3.5*TCCB*3« 14159* ( *333*R*SEG*D ) 

C CHECK WITH AFT 9 X Y BL<HD TENS I 0 N L 9 AD REQHTS 


s 37 

- 

s"o« . 000 ' 


IF(>jCFW.LT*wA 0 W) WCFW“WA 9 W 

;77 

- 

= 1^.000 


^ F c 0 ■ CFB 

S 4 0 

- 

S 40000 


WFF WCFW 

541 

- 

S 41 *000 


W A 9 w « j • 

S 4 P 

- 

S 4 P .000 


^ 490 « 0 * 

S 4 0 

• 

S 43.000 


^FFR.^AOP 

S 4 4 

• 

S 44.000 


K*T 30 « 

S 4 S 

. 

s 4 S • ODD 

C 

F-'D C 5 NE AND FAILING ANALYSIS 

S 4 A 

- 

S 4 S .000 


91 IF nL<S 9 .GT. 2 . 0 ) 39 T 9 9 ? 

547 

- 

S 47.000 

c 

J D 9 C?NE n ALL THICKNESS 
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54* 

- 

S4«.000 


54^ 

- 

S4?* 000 



- 

^50*000^ 

c 

"iby 

- 

C S1 ooo 




S3?. 000 


559 


S5SOOO 

C 

nSL 


S54.O00 


55" 


sssooo 


^ 5 a 


5 3_S • _0 0 0 _ 


5 5 7 


S57. 000 


5^9 


SSR • ?00 

C 

5 5 


. O00 




SAO.000 


sm 


^61 *000 


56? 


ss ? » 00 0 

_c 

569 


563000 


554 


554*000 


5 A5 


565*000 


5*5 


566000 


567 


567*000 

c 

5 6' 7 


_5i*OOX 




56 ? • 000 


570 


570000 


571 


571 *?00 


57? 


57?*?00 


5 79 


57 ? • 00 0 

c 

S74 


574.000 

c 

^ 7> 


575*000 

9? 

57^ 


57S. O00 


ST 7 


577*000 

c 

S 7 ^ 


575*000 


S7T 


579*000 


5P n 


50. 000 

c 

'ssi 


5R1 *000 


bra 


535000 




5R ? * 000 


S84 


5S4 . 000 


S K r > 


5fl6*?00 

c 

SKS 


5R 6 ooo_ 



S47 


537*000 


S»y 


53^*000 


SRT 


543.^00 




590*000 




SOI ODD 

c 

^ LI'? 


53?* 000 


SPT 


539000 


S') 4 


594*000 




595*900 


sha 


596*900 

c 

S?7 


597*000 

9 

AO T7 


593*000 




539*000 




600000 

c 

SOI 


S01*?00 


SO? 


so? * 000 


SO? 


609*000 

c 

S 0 4 


^/O^ooo 

c 

SO- 


606*000 


SOS 


60S. 000 


S07 


607000 


.... 60S 


603*000 



TucM'^JLL^e^/rru 
I F ( T JCN« LT • THIN ) TUCM-TMIM 

_ F v C 3 > Y P L< HD _T H I c <NE_5 S 

IP(Tr?P.LT»TMIN) TF9B*T*11N _ tTu 

r v’D *xY RlKhD RIN3 AREA SIZED F9R ELASTIC STABILITY 

( (°ULL?/2» ) *<3R*S I N< 30 • /5 7*2958 ) ••5«3D*T AN ( THETA/ 
K57.R953 ) ) ) 

_ i?. ( sjF ;g_p* ( . 5»3D ) **3/1 3* *E L)* » » 5 — 

IF< AF9U.LT.AHIN) A F9R* *HI N 

nlEISHT 9F FwD 9XY BLK-D RIN3 AND WELD 

*Fi 3 »R.l*lP 9 *' , D» p w 9 »AF 9 R 

WF‘>R* ( TF 93 *. 0 C 5 )*?.* 3 « l* 159 *?R*H 9 R»RHe 
„r*w«3w«»*3,5# < TF 9 3* . 035 ) *3* 1 * 1 59* ( •333»8R*SE"*3D I 

j --( T 3 F PHD FAT PTM^ [IS IN" "INIMUH GA .IPF PL.lS aELOS. 


^fajr«RH9*(T'1!N + od5)*3.1*159 # <2. *NR*HN*< .5*9D*»5*ND)* 

& ( ( .r-HC9 ) »»2* ( • 5*3D-»5*ND) **2) **»5) 
^FA^.?-I9.3.E ) *(T'1IN*.035)*(3-1A159 *ND*sES*(HC-HC9)/ 
5C9S(T-ifta/57.?95S) ) 

WE I “WT 9F FwD C9NF 9X Y TAN< WALL AND WELDS 

/C 3 N*RH 3 *3 • 1 * L 59 * *_ 5 * 1 L.TUCN*-«.M 5 J •flD+iiaiiU’-ODSJ *D 1 *HCB/ 

>~C°S(THETa/57.?95S) . . , 

^r«»NA*RH9*3.5*((( TUCN + T9 ( 9) ) *• 5*» ODS ) *SEQ*HC9/C3 S ( THETA/ 
^57.3938) *3. 1 A] 59*( TUCN+-005) *901 
51 T9 93 

ALTERNATE FwD SECTI9N n I TH9ljT FAIRING 
_F/;D 3YY_BXitO_LHIi5DI£SS. — 

TF33»PJLL9*»5*ND/( 2 « * C TU ) 

I F ( TF 9 B.LT. TNIN ) TF 93 «TNIN 
JPR C 9 NE wall THICKNESS 
TUCn.=ULL9*.5*MD/FTU 
IF(TJCN.LT.TNIN) TUCN.TNIN 

Fv d 9*V_ Pl<hD..RJN2. ARFjA SJZED_F9R FLASJJC_SlAfLL.I.TY 
MF9 ?«af;c;( (PULL9/2* > *< • 5*ND*SI N( 30«/57» 2958 )-.5*ND*TAn( 

STWETA/57.295B) ) ) 
af'»-?.(nf9q*(.k»nD)** 3/(3.*E))**.5 
JF (XFfP.LT.AHIN) XF9R-AHIN 
W-I3HT 9F FwD 9XY BLKHD RIN3 AND "ElD 

WF?3*3« 14159 •ND*R.H9L*AF? I T 

WF'»t»:h«»*(TF9P*«D05>*2.*3.I<»159*(.5*ND)**2 
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5 . SOLID ROCKET MOTOR BOOSTER MODULE 

This module contains the analytical and empirical weight estimation relation- 
ships necessary to completely define the solid rocket motor (SRM) booster system. 

The NASA weight report and design data, coupled with a three-view drawing of the 
SRM, supplies all inputs necessary to analyze the configuration. Here again, it is 
important to note that the velocity correlation coefficients described in Option 1 
must be calculated or known before this option can be executed. The primary pur- 
pose of this option is to provide the capability of optimizing the SRM by inputting 
a diameter and iterating on propellant load and engine characteristics. The itera- 
tion calculates SRM burnout weight and dry weight, which, in turn, modifies retro 
and parachute system weigh ts , which, in turn, is rippled through the other weights. 
This entire module continues the iteration until a completely balanced system 
exists. This option also has the capability of inputting constants, which allows 
the user to input weight changes without modifying the program. The SRM option 
contains four distinct modes of operation which are as follows: 

1. iterative analysis 

2. iterative analysis (fixed dry weight) 

3. simplified equation 

4. fixed booster. 

Figure 5-1 is the flow diagram of the SRM Module, followed by a detail listing of 
the program. 
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6 . TRA JE CT ORY MODULE 

The trajectory module contains the curve fits of an optimized trajectory, 
established by MDAC during the Phase B Shuttle program. These curve fit equations 
determine the total required velocity by defining the velocity losses. This is 
accomplished in several distinct steps: 

a. The ideal required velocity is determined as a function of first stage 
velocity, first and second stage thrust to weight ratios and the ascent 
drag parameter. 

b. The velocity losses attributable to the launch site altitude and the 
required mission inclination. 

c. A delta velocity correction factor which allows the curve fit equations 
to translate through the defined losses of an analyzed point design. 

The equations are empirical relationships derived from parametric ascent 
trajectory shaping studies* and are intended to be used for ideal staging veloci- 
ties in the range of 8,000 to 12,000 ft/sec. 

Ascent losses have been shown to be a strong function of thrust /weight at lift- 
off (T/Wi) , and thrust /weight immediately after staging, (T/W 2 ) . Other significant 
correlation factors in the velocity loss equation are staging velocity (V g ) , first 
stage drag parameter (W/SC^) , and launch site altitude (H) . All of the above param- 
eters are self-explanatory with the exception of SC^. The SC^ value used is between 
Mach numbers 1.2 and 1.5. 

The velocity losses were curve fit for ease of interpolation when used for 
sizing studies. The coefficients of the multivariate, polynominal fit were eval- 
uated by a least-squares technique. Each coefficient of the initial polynominal 
was tested for significance, and the least significant term was eliminated. This 
procedure was repeated until a minimum term polynominal was determined which had 
accuracy essentially equal to the original. The accuracy of the curve fit was 
then improved by conditioning the independent variables with natural logarithmic 
functions. However, if new data is curve fit, other functions may be more appro- 
priate. 

The curve fits are predicated on limiting values of the thrust to weight 
ratios and the accent drag coefficient. These limits are: 

a. First stage thrust to weight is less than 1.60 or greater than 1.18. 

b. Second stage thrust to weight is less than 2.0 or greater than 0.70. 

c. First stage drag parameter is less than 12,000 or greater than 1,000. 
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If these limits are exceeded, the program selects the applicable limiting par- 
ameter and outputs a warning that the results are outside the bounds of the curve 
fit equation and the validity is questionable. 

Figure 6-1 is a flow diagram of the Trajectory Module, followed by a detail 
listing of the program. 
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7. FIXED HARDWARE MODULE 

This optional performance module determines the payload capability for a 
given configuration and physical characteristics through the use of the rocket 
equation (AV = gISP In (MASS FRACTION)), In this option, the configuration 
weights and propellant loadings, as well as the ascent engine characteristics, 
are input into ESPER. To complete the analysis, the configuration velocity losses 

(AV CONFIG = AV ORB + AV SRM + AV LOSSES ) are determined from an empirical relationship 
derived from parametric-ascent trajectory shaping studies. These velocity losses 

were curve fit for ease of interpolation when running ESPER. When the configura- 
tion velocity correlation constaints needed for the interpolation routine (DVCORR 
and DVCNST) are known, the velocity losses are calculated by ESPER. This option 
gives the user an invaluable tool by which the user can measure the impact on 
payload due to changes to a FIXED HARDWARE DESIGN. (For example, what is the 
change to the deliverable payload due to a 1-sec increase in orbiter ascent ISP.) 
Generally, however, these velocity correlation constants (DVCORR and DVCNST) are 
not known, but the staging velocity and the total losses are usually readily 
available. A matching routine, based on a simplified newtonian iteration techni- 
que, is provided in the FIXED HARDWARE OPTION that will internally modify the 
existing velocity loss curve fits. This routine solves for the correct DVCORR and 
DVCNST that will satisfy the total losses and staging velocity constraints. Since 
DVCORR and DVCNST are required input parameters, this solution serves a dual pur- 
pose for the user, it not only allows ESPER to compute the velocity losses, but 
it also opens the door to the other options offerred by ESPER. 

Figure 7-1 is a flow diagram of the Fixed Hardware option followed by a detail 
listing of the program. 
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FIGURE 7-1 FLOW DIAGRAM 
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8. SENSITIVITIES MODULE 

The Fixed Hardware Sensitivities Module was developed for the specific pur- 
pose of automating the task of assessing vehicle sensitivities. Theoretically, 
any sensitivity evaluation can be made by simply making two back-to-back runs 
through ESPER with the individual sensitivity element adjusted by the desired 
increment for the second case, and simply subtracting the resulting payloads and/or 
gross liftoff weights, and dividing by this increment. 

Since this option is a part of ESPER, it utilizes the same ascent performance 
logic and ascent velocity equations. Thus, any output case from ESPER can take 
advantage of this option. The basic equations within this part of ESPER, however, 
are modified to contain discrete sensitivity increments (i.e., delta booster inert 
weight, delta Orbiter inert weight, delta booster ISP, etc.). 

The first input case is treated as a fixed hardware configuration and 
initializes and varies the basic configuration performance capability. The various 
sensitivity increments are applied one by one, and each sensitivity is calculated 
separately against the initial case. To save the user the time and money involved 
in inputting, these sensitivity increments have been fixed in the program. Since 
this option can be run with any ESPER option, the user need only set SENS equal 
to 1.0. 

Figure 8-1 is a flow diagram of the Sensitivities Module followed by a detail 
listing of the program. 
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FIGURE 8-1 FLOW DIAGRAM 
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9 . OUTPUT MODULE 

The output module contains two basic options, either a simplified printout 
or a detailed printout. 

The simplified weight statement supplies the user with total vehicle weights 
and performance parameters, such as, TW f s, GLOW's and AV's. 

The detailed weight statement exists in the form of the NASA Phase B functional 
weight grouping. This coding gives a direct line-by-line comparison of ESPER's data 
with the weight status report of the mainline Shuttle program. 

Combinations of these two mainline options are numerous. For example, if the 
user is running a fixed SRM and wishes to see details on the Orbiter, or if the 
user is running a fixed Orbiter and wishes to see details on the SRM, etc.). 

Figure 9-1 is a flow diagram of the Output Module followed by a detailed listing of 

the program. 
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FIGURE 9-1 FLOW DIAGRAM 
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I TE f 1 0* # 1 5 0 ) 

A « 

• 

HR 

ooo 



30 TO 9 

81 

• 

89 

O 00 


8 

W»ITE(10*#150) 

90 

• 

90 

ooo 


9 

wRITE(10»*UO) 

91 

- 

91 

ooo 



WRITE! 108,1 15) 

OP 

- 

99 

ooo 



IF( A330V9NR.riV9NC) .3T.I* ) 39 T9 10 

91 

- 

99 

^00 



31 T9 ?3 

94 

- 

94 

"no 


10 

WRITE! 138,193) 

9- 

• 

95 

ooo 



WRITE(108,?03) 

95 

- 

95 

ooo 



WRITE! 103, ?13) 

97 

- 

97 

ooo 


?0 

IF (T4W9.LT. • 7. , 'R.T9w9»3T.?.0*8R.T8*(B»LT.1*18 

9B 

- 

9* 

ooo 



%.4<j.T*> w q.-,T.1 .*) WRI T£< 108* 220) 

90 

- 

99 

ooo 



m 0V9*9 #L T.3n00*.*ROVGRp#QT*9000i ) W 8 I TE ( 108# 230 ) 

1 on 

• 

1 00 

ooo 



WW1T£( 1 0 8 | o u 0 ) INC 

1 01 

- 

101 

ooo 



rtPITEM D«# ?50 ) T9TLSS 

1 09 

- 

1 0* 

ooo 



W»!TE( 10«, 950) 0VC099# OVCMST 

1 01 

- 

ni 

ooo 



WPJTE( 1 0*# 270 ) X 3 

1 04 

- 

1 04 

ooo 



WPJTE( 108, ?80) X? 

105 

- 

l iV 

000 “ 



W W I T* ( 1 Ob j 99 0) OVALt 

105 

- 

105 

ooo 



WP I TE < 1 08# 900 ) *9SCD#3CD 

107 


107 

ooo 



WPITE(10R,3lO) 

1 01 

- 

to* 

ooo 



WP 1 TE < 1 0 *# 320 ) 9CANT 

1 on 

- 

109 

ooo 



WP I TE ( 1 oh# 933 ) 393 KT 

tin 

- 

110 

ooo 



WP1TEC 10 B #?O) 309 V wT 

rrr 

- 

"TIT 

TOO 



" " wRlTt(lf)8,38flT t>R9PBT,T*flTI 

ti* 

- 

It? 

ooo 



WRITE! 13«,353) LAMB 

m 

- 

Ill 

ooo 



WRITE ( 1 3R, 373) IS 3 9V, 1SP9BV.ISPB 

t 14 

• 

114 

ooo 



WRITE H 38 , 3^3) T W3 TC, THBSLT 

1 15 

- 

115 

ooo 



WRITE! 138,413) 33T 

115 

- 

115 

ooo 



WRITE! 138,420) 

TIT 

- 

ii? 

ooo 



WR I TE ( t 38, 433 ) 9CANTY* SCANTP 

11* 

- 

11* 

ooo 



WRITE! 138,483) 9LL p L9 

tin 

- 

119 

ooo 



WRITE(138,443) =L9*DJ 

1 ?0 

- 

1*0 

ooo 



WRITE! 138,473) W9°R9 P 
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t?l 
1 ?* 
1 *0 


1 ’1 • 333 
1 =^000 
1 *0*330 


H^ITEI 10*. ROD) 
h^ITEI 19«, 4 8 D ) DRYHT 

I TE < 1DR.76D) RESIDI 


1 ?i 


1 ^4030 


w « T T E ( 1 OR » 530 > 


\P* 


1*5003 


1 08.540) PR8P9T#PR9PM>P*RP02 

% 

1?5 


1*6003 


*/otTi(lD.,-»5D) TlAHR 


1 P 7 


1R7OD0 


ni 1 * I Tt ( 1 DR* MO) 1SP9 


1 ?8 


1 *8*300 


W P ITE< 138,520) TH9TC#T9V.N0ENG0 


1 


1 333 


<I*M T” ( 1 OR » * 1 0 ) CLRisR 


1 IP 


no. boo 


W n I TE 1 10R* A30 ) 5“>L9i^ 


1 PI 


131 *330 


#|RTT*(1DR#«.3J 9~L9W 


t 3* 


1 P**^30 


^ B IT*(1DR»65D) 3 L *9 “Y 


1 ?o 


1 PP • 330 


IF ( • OO ) WRITE! 108*560) TGTAL#9H9LD 


1 34 


1 34 033 


W p I TE { 13*»570) T9*H 


1 PP 


135.333 


«/s!T:in«i‘S3l T 9 H9 


1 p^ 


1P5.033 

■ ■ 

»n w IT*( 108.500) OVBOVFPP 


1 P7 


1 17033 


* D TT;( 19R,7G0> OVRRP»F p RP 


1 Pa 


1 3*000 


,1" rt*MDR»71D) DY R 


IPn 


1 PPOOO 


w D ! Ti ( 1DR* 780 ) DYCQ'I.DVT 

- 

1 4 3 


143030 


IF (rix9R9.'3T.r. ) I T3 < 1 08» 7*0 ) DVC8M#DVT8TC 


1 4 t 


1 4 1 030 


V p !T r ( 108.740) DV0NR 


1 4* 


14?. boo 


" dlR 1 T£ ( 10*»75)D) DV9MC 


1 4P 


1 4 P • 33 0 

813 

format ( 6X. * FL*w 9 A TE » # ?X. F 1 ?• ? ) 


1 44 


144.300 

803 

F*RMAT</4*# »EXT TANK PARAMETERS') 


1 4 5 


1 45000 

47P 

fhrmaT <6X. 'pAvc; p^gp WE I 3MT 1 OX# F 1 * • 2 ) 


i 45 


1 45000 

753 

format ( 6X. « EXT. TANK RES I D« ' » ?X#F1?.2 ) 


1 47 


147. 300 

4PP 

F^QHAT f 5X. 1 ( rASJT ANG^ YAW * ' t F4 . 1# ') » # /# 5X# . .. 


1 4 3 


14*003 


1MCAMT PITCH* '»4il» ')' ) 


1 4 '1 


1 4*000 

m 

r^pviAT ( ?\ X# * 393STE9 - S9LI0 SOCKET M9T9R') 

_ 

15P 


150000 

p ? 3 

rpRMAT(6X. » (CANT ANGLE* »#F4*1 # * ) 1 ) 


151 


151 *300 

no 

qm A T (*Py» ' r I XEO 0P91TER' ) 


1 5P 


1 5*000 

ni 

FORMAT ( P7X# ' r T XEO WT. 9R3ITER') 


1 50 


15 3.^30 

333 

format < ? 4 > . ' W / S C 0 ' #l?x.F7*l#?X# '5CD'*2X.F7*1) 


t rr 


~T54 .300' 

~ ? 8 3 

C 9 p H A T ( / 1 R x # 1 ••**•**••* WARNIM3 L99K AT DV8R0 


1 55 


155000 

453 

r i >P^AT (5X. ’LIFT 9FF-PAY-9AMS*#1X#F12*2) 


1 55 


155. POO 

443 

FORMAT (5X. 'pAYL9A3'#llXiFl2**) 


1^7 


1 57030 

1*3 

m^^ATfPSx.’rixEO HARDWARE ( AS PER ) * ) 

. 

1 5 q 


158000 

t?5 

FOPMA J ( * px i ' H I MI M JM 3-041 VEHICLE') 


1 5P 


15*030 

P 7 3 

r^pviATf5X.’I3 p AV (» c, 5*1# , j'#F5*1#')'#4X#F6»*) 


1 5^ 


150 000” 

P 8 0 

"ftifUT (ftX, 'ft* I.EYEL THRJST • #8X#F12.2) 


1 51 


151 030 

1 40 

r )PHAT(?Ry» ' r IViD 9993TER • ) 


16* 


1 5? • 300 

14* 

r*<5HA T ( ?7 y# ' 3 1 90L I r IED 99QST3R') 


1 53 


1 53000 

1 40 

n:?HA T (P7x» •3I'^ D LlTtED EXTA\i< • ) 


154 


154030 

153 

r 90 HA T ( ? 7 x » ,r IYED THR a 93STER’) 


1 53 


15 5.300 

1 53 

crrhAT (?7y» '=’IX-D T /A 999STER ' ) 


1 55 


“T55O30" 

130 

” COPH A T ( M » # / # * 9 X # * PARALLEL 3JPN » ) 


157 


157033 

113 

F5PHAT(1SX. '*APAHETPIC STU3Y EXTERNAL (H2-92) 

RR3 ITER 1 ) 

1 5* 


15«O00 

no 

F3PMAT { /*5X. »N9 VALI3 S 9 L J T I 9 N » ) 


1 5P 


1 5PO30 

* 3 o 

FHPV,AT ( ?5X. * 8R9I TEP T39 LARGE*) 


173 


170000 

?n 

rRP*uT(*l*n rn 9 THE PAPAHETERS SELECTED*) 


1 7 1 


171. 300 

??3 


1 7* 


17>.00b' 

*4 3 

— r«3HAT(/l 7 X, ' IVCLIMRTI9N 9F 0R9I TER ' # F7 • 2i ' 

DE3REES * ) 

1 7 P 


173*333 

*53 

riPHAn/?HY* *nv T9TAL L9SSES ' * 1 X» ' ( * • F7 . 1 / ' ) ' ) 


1 74 


174000 

*80 

F9PHAT(/*4Xi*0V INC , #11X#F7*1) 


1 75 


175000 

*93 

F9PHAT ( ?4XO 3V ALT » # 11 X#F7« 1 ) 


1 75 


175000 

*53 

r9RHAT(?4X»'DV C9 RREC T I ON ' t A X* F7» 1 * 2« « 'DVCNST' 

*2X#F9* 1 ) 

177 


177000 

*70 

F9PHAT(?4X# OV CURVE L9SSES ' #2X.F7» 1 ) 


T7T 


178000 

P10' 

c-RRHAT (/<tx* '3R95TiR »AR AKETERS ' ) 


179 


173*300 

390 

mP'-iAT (5X. ' BJPN 9 JT WEIGHT»#3X#F12*?) 


i*o 


183000 

P43 

F9PHAT (f X»3PY WEI3HT'#8X#F12»2) 


181 


181 030 

353 

FORMAT (5X, 'PROPELLENT WEIGHT*# lXi FI 2*2# ?x# * PROPS W9 I ' # IX# F12*2 ) 
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1H3 

ooo 

350 

r*p^AT(py # »LAM90A" , »r5*4) 

1 *0 


Ml 

hoq 

310 

(AX, <SE* LEVEL ThRJST».?XaF12.2 

1 « 4 


114 

.023 


* 3»L • T 3*9 » #P1P*P > 

1 ws 



300 

410 

F999AT (*y, » Q JPM TIME* #9K#F12»2) 

1 »* 


1 * * 

000 

4 ? 0 

fgsmat (/4X> '3PBJTER = ARA!1ETERS* I 

1*7 


1*7 

000 

4*0 

ft SHAT (AX# 'EXT* TANK V T (DRY) «aF12.2) 

l ** 


1 * * 

ooo 

=530 

ft SHAT (AX/ , PS r,0 £L L ANT WEIG-IT'aAXa '9R» PROP'aAXa 

1 *0 


1 *1 

000 


*'1STSTA3 PS03'»2X» '2NDSTAG PR0P») 

1 on 


no 

OOO 

540 

m99AT(P4X#n?.?#PX,ri?,2,2X,F12*2) 

I'M 


m 

ooo 

5*0 

FTHMATIAX, I3ST3 JAMS ASC PR0°* aF12»2) 

1 


ipp 

^00 

*10 

f'O'tATIAX, ' ISP'#lfjX»Fl?.2) 

1 ^ 


n* 

ooo 

620 

r n pm A T |AV; ' VACJJH THSJST',5X*F12.2#2X, *TWRUST/EN3' 

1 T4 


1 P 4 

OOO 


&#F*uo,px# • * EN0»*F4#0) 

M5 


no 

ooo 

* 30 

m9Ai4T(/4x#nnL0w»*#2x#Fi2#3) 

1 o* 


M6 

oo . 

*40 

c‘*9v,4T(4X, «B3L94«'#2X»ri?,3) 

iTT 


117 

ooo 

*50 

C‘>psiAT{4XnGL q W • ’f?X»C’l?*3) 

j QQ 


n« 

ooo 

*60 

r*9MAT(4XnT5TAL«'#?X#F12*3#?X# 

1 on 


n» 

ooo 


fiiMlMCUHES H9L0 D9WM =>99° ■ U *7 • 1/ » ) * ) 

pnn 


pip 

ooo 

*70 

TP9MAT(4X # *T/H1 «'*2XfF12#3) 



?01 

000 

*«o 

FF>9MAT(4X, •»#?X#F12.3) 

PO^ 


ppp 

ooo 

*00 

p^ohaT ( / 4y» t JtFAL STAGING VELOCITY • a5XaF1 2. 2 

P01 


pi i 

ooo 


OFLTA V*#*9»2) 

pn4 


Pp4 

ooo 

700 

rn=MAT(4X, 'PEAL STAGING VELflClTY'»6X»F12»2 

pp>5 


P05 

ooo 


dd«15» # 3x # c’9.2j 

p 


Pn * 

ooo 

710 

rnp^AT (4 X# 'NHmINAl REQUIRED VELOCITY'a2XaF12.2 ) 

?07 


PP7 

ooo 

7 ? 0 

F«tSHAT(4X, 'T0TA to VEL5C I T Y ( • , Fj, . 4> * X FPS ) • a 1 X, F 1 2 . 2 ) 

?n<* 


PO* 

ooo 

730 

ro3MAT(4 X, 'total VEL ( 1 AL ) ( ' , F5 . 4a • * FPR 1 • a IX. F 12 • 2 ) 

p 4 oo 


PP9 

ooo 

740 

ro^AT <4X, tftRPITEs VELOCITY(CALC) '»5 XaF12.2) 

p i n 


?n 

ooo 

750 

format <4X, 'OR^ITES VELOCITY! ACT) «/6XaF12.2) 

?11 


?n 

ooo 

400 

fgphaT (AX» ' (CtH«i9M BJL<HEADI') 

PjP 


pi? 

ooo 

500 

F"9><aT <*x, • (SFPA^aTE 3LIL<HFA0)«) 

pip 


?n 

ooo 

510 

rop^AT <*x, • jk«„T. SEP* 3JL<HEA3)») 

4 


PJ4 

ooo 


!ML3^G».FOiO.O) 09 T9 9999 



* 1 % 

ooo 


IF ( r i x?9p # 3T.n.cu 9 9.snP5P*QT.0.0 

?i* 


3 i * 

ooo 


1 • ANn.L9NOD-GT.O#0) 03 T9 30 

?17 


?17 

ooo 


TU 10*# 10D0) SP^L#3^^0 

Pl« 


PI* 

ooo 


W»lTSMO*#lon) BASSP'i 

Pin 


Pt? 

ooo 


M»]TH 10**1020) */CASE»WJ9IMT#wiM&ZZ*WTTE3#l4lN$T#Wl3M#BS9MC 

?pn 


pop 

ooo 


AlPJTi(10*#103r) vi/(?EC9^ 

pp( 



no 3~ 


NWlTEf 10A#1C'AG) P^PAS*PWPlAOWSS»PWRPAP*!rtRASRHRC 

ppp 


??? 

000 


<< p I TE ( 10A* 1 05^ ) SRH j S3 

ppo 


ppi 

ooo 


N p ITE(lG«»,l06") °NFS»PWASLS#°WAS#PiXNFARiNTN»R<lAV»XNCTRS#SRMIC 

P?4 


PP 4 

ooo 


N !7 ITE(10A»106 r ') 

P?n 


P?P 

ooo 


^RITE( 1DS»107^) P39SlJaL»NCERT 

^?* 


??* 

ooo 


^RITEMORaIOSF) 

??7 


"» 7 

ooo 


N p ITE(10A*10S n ) PGRYWT*EXPINS 

PPM 


PP * 

ooo 


N»ITE(10».106S) 

??o 


PPP 

ooo 


W p ITE(lG*,109n) eBB0WT*PPR0PR 

p?n 



000 


vp I TE ( 1 na, i of ^ ) 

*31 


P1I 

ooo 


V»ITE(10B»11DC) PjRBSS 

ppp 


_J>3* 

ooo 


v p I TE 1 1 G9» 111?) LAHB __ _ 

P33 


P03 

ooo 


v«ITE(nA»112C) N0ENG3 

P34 


23 4 

ooo 

C 


P.3S 


P35 

ooo 

c 

getaileg grh weight statement 

236 


23% 

ooo 

c 


P 37 


?3 7 

ooo 

1000 

FnSHAT(*lt,15X»*S9LI3 R9CXET MOTOR ( SRH ) WE I 3HT SUMMARY • 

PPP 


PI* 

ooo. 


1a /#30x* * (°EP SRH ) • a // a£8Xa ’ LENGTMw * a2XaF5*0a_/a 2BXa _______ 

P?p 

m 

P19 

ooo 


?»njA9t TFP«*#F5.0) 

P4*) 

m 

P40 

ooo 

1010 

format i/#*x# 1 basic sr9 weioht • $ 16X# M MF9*0/ • ) 1 ) 

?M 

m 

P4 1 

ooo 

10?0 

c'*® 9AT(9X»*CA c ;E WEIGHT , #19X#F9«0< 

P 4 P 


P4 ? 

ooo 


1/»9X# * J9INJT WFI3MT»#19X#F9*0» 
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541 

- 

P 4 9 • 

000 

?/, IX, ' MV7LF WEI3HT • »17X,F«0, 

P44 

- 

944 • 

000 

3/. AX, 'TMRJST TERM WT* ' . 15X, F9. 0, 

PUS 

• 

94 p • 

000 

4/#9v # » IM^.I^ATIOSJ V9I3HT» # 13X»F3.0J 

P4* 

- 

9 4 *> • 

000 

5/#9X#»lONTTE9 (a£ I mT 1 # 1*X#F90# 

P47 

- 

94 7. 

000 

*/, 9y, » RARJt: S9M ^ T . C 0 ^ 1 3 X # F 9 • 0 ) 

P 4 ° 

- 

94« . 

000 

1310 nRMATlAX, 'S’M Rr^vERY WEIGHT ', 13X, '( ' ,F9»0, ')' ) 

? 4? 

■ 

949 , 

000 

1340 f«i*maT <?X, 'PARACHJTE WE I 3HT ' , 1 4X, F9. 0# 

?50 

- 

?S9. 

000 

l/#9y,’PAQACHJTE lMSTAL* f #13X#F9*0/ 

ZZL 

• 

_251_- 

000 

2/,?X,'RETR9 1?C< r T ', 1 ix.co. n. 


- 

ppp. 

000 

l/.lx, ' prhpElLANT wfi3hT'#13X»F9«0* 

ps t 

• 

9p9. 

000 

4/,1x»"wATrR 1EC • HWD*',15X,F90, 

P*4 

- 

- 954 . 

900 

5/, 9X» 'SRM REC«WT.C9NST. ' , 13X.F9.0) 


- 

p >5 • 

900 

1340 ''N'UT (<,x, *SRh INTERSTAGE STR J. * , 1 2X» • ( * t F9 . 3 j • ) • ) 


• 

P9f • 

^00 

1340 f"RMAT(qx, 'FIO^ARO S< I RT ' , 1 7X, F 9 . 0 » 

^57 

- 

9-^7. 

pop 

1/, IX, 'Ary ;<IPT STRUCT'*l4X» c 9.0# 


- 

P 7 ) R • 

000 

ATTACH /^EP RT9JCT f # 13X» F9*0# 

PST 

- 

p*p. 

900 

9/,ny,'vjnqr F A I 9 I VJO ' 0 1 RX# FO. 1* 

-’V) 

• 

90. 

900 

4/. IX. ' T JNNEl '*•£ I 3HT ', 1 7X» F^ O* 


• 

PM . 

000 

3/. py, • AVI'iNJCS WEIGHT' . 15X.FR. 3, 

p^p 

- 

p* p . 

000 

4/, IX, 'TPS WEIGHT' »20X»F9«0» 


- 

9*5 9 • 

000 

7/, lx, 'SH h !NTFR3«C3NST. ' # 11X.F9.0) 

?<*4 

- 

P*4 . 

^00 

10*5 F9 9 ^a T ( 9Rx# ’ • ----- -«) 


- 

9*0 • 

000 

1373 F‘)RMAT(4X, 'SJST3TAL DRV HE I GHT • , 1 4X, Fg. 0, 

?** 

- 

?**• 

000 

1/,4X, '3R9-.TH UNCERTAINTY', 1 5X,F9.0) 

? * 7 

- 

9*7. 

000 

1 3 R 0 F 1RMAT ( ax, ' dry WEIGHT', 23X.F9. 3, 

p*r 

• 

9* R . 

000 

1 /* *v# ' £XP£vjDA 9L£ 9R9 p . »*17X# P" 9 • 0 ) 

?*-> 

- 

9*9. 

000 

1310 FORMAT (Ax, 'BJ°N 9 J T WEIGHT'.18X,F9«0* 

?7o 

- 

970* 

000 

i/,4X, ' JSAh|.E PR 9 p WEIGHT', 15X,F9»0> 

*7t 

- 

971 • 

000 

1133 FORMAT <4X, 'T1TAL 399S3 WE 1 3HT ',14X,'(',F9*0, ')') 

?7P 

- 

97?. 

n 00 

1110 FORMAT (/,AX, 'LAM93A.WPR9P/WGR9SS" '»F4.5 ) 

?7J 

- 

979. 

n 00 

H50 foo^at (ax, ' T 9 T Al N0 9F SRMS ■',F2.3) 

P 74 

- 

974 . 

000 

C 

P7R 

- 

97 P • 

000 

C DETAILED 1R9ITER WEIGHT STATEMENT 

?7* 

- 

97*. 

000 

C 

? 7 7 

- 

977. 

POO 

33 IF(rtyg:jR.3T.f'.0.ANf),L3N3P,nT.3*0) G8 T9 9999 

9 7R 

• 

9 7 R » 

000 

IF(Fix lJ 9e.-,T.O.0*AN0..9N3P.GT.3.0) G8 T9 40 

P7P 

• 

979. 

000 

WPITEI 10?,?0Di) _ 

PRO 

- 

PR 0 * 

000 

WR I TE ( 1 DA, ?C 1 D ) HSG.WwT 

PR1 

- 

PR 1 . 

POO 

W4’ITE< 1DA»?0?D) H3STR, WT9R3E,LEW,WTE,GPR9V,G = R9V 

PR? 

- 

9° ? • 

900 

i,WAI., WAS, WADR, WAH, WA 3 ,PWING< 

PRP 

- 

PR 9 . 

900 

WR I TE ( 1 D", ?03D ) TSG.TAIL 

P R 4 

- 

PR 4 • 

000 

WRITE! 13«,?C4D) T3STR,TT9R3P,TLE,WRUO, WRS,WR3R,WRH 

PRS 

- 

90. 

000 

1 , 4 Rp, P T A J l< 

PRS 

- 

PR * • 

000 

W«ITE( 13«.PC5n) G17 

P R 7 

- 

9 R 7. 

000 

W u I TE I 1 D 4 , ?C 41 ) 

Pm a 

- 

PR R • 

POO 

WPITEI 1 OS, 2070) 31,GU,325,310,327,G12,G26,G15,3?,G3 

PRO 

- 

9 R P • 

POO 

1,34.314, WT9R3C, 31 7, 33?, 334, G A, 31 8, 335, 319, G22, 37, 323, 333 

P90 

- 

900* 

000 

?, G9, 3?4 , 314 

?°t 

- 

901 • 

000 

WRITE I 1 OA, PCS' 1 ) T9TT = 3 

p 9 p 

- 

9P9 . 

910 

WRITE! 1DA,?0RD) Tw3hT,w3WT,'W3LEWT,TTWT,TWT,TlEwT,3TPSWT 

PQ 9 

- 

909. 

000 

1,HL1T=S, AaSEWT, I9TWT,pTPSCN,MCSwT,LDTwT,PR9WT,=“PC,PHYC 

P?4 

- 

90 4 . 

000 

2, SCWT 

PP" 

- 

99R. 

000 

WR I TE ( 10A , ? 1 30 ) LNDD< 

0 9* 

- 

9 0*. 

000 

W«ITE( 10A, 21 ID) N3E AR, NG1 , NG2, NG3, MGEAR, MG1 , MG2, M33 

P 9 7 

- 

907. 

000 

1, AX1EAR, AX1, AX2, AX3,LNDO<K 

P9R 

- 

POR. 

000 

WRITE(10A,?1?D) T A PR9 3 

P9? 

- 


.Ml. 

WRITE! 139,2133) E<gGPAC, ENG, T VC, C9NTH, PRPLITL, »R9S YS, F AQ 

900 

- 

910. 

000 

1,pRES,CHIl,PREVAL,FEED5,DISC,MISC 

001 

- 

901- 

000 

WRITE! IDA, 2140) T ABPR9 .... 

OOP 

- 

90P. 

000 

WRITE! IDA, ?15D) IWTAUX 

903 . 


309. 

000 

WRITE! IDA, 2140) W T ACS, ACSENG, ACSSYS, WTACTK, ACSMSDj WT9MS 
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in'* - m».n33 MODULE 

- 133O30 R"ITE( 133#P170) D3W9 


105 - 

135*330 

yRJ T£ 

(tlH/PlMr) ElIC — 


07 - 

137000 

#)•■’ I TE 

(13«# ?193) HY3R 


n ns - 

13 * * 03 0 

*l r >t TE 

<n«»??00) SURFC 


m - 

131*000 

aHITE 

AYISN3 


. ...mo 

110*000 

•JPITE 

<10S#22?T) ECLS3 


Til - 

it 1 .100 

APT TE 

{ 13 1,3230) PiPOV 


IIP - 

It 3 *000 

Ol TE 

U03/2235J 919MI 3 


m - 

It 1*000 

aI^I TE 

( il«Ap?4i) 9 J^CWTa90PVWT 


11* - 

314000 

W^ITE 

(10Sa?245) 


m - 

115*000 

OITE 

( IT* / ?E5R ) 53RYRT# P -RS0'<# 5RES:>#PL9ADU»0!NWT#9RESV 


715 - 

115000 

l#^!? 

u a ACSHOa //3PP9P# 3T1AP# 9L0WT a PL9 ADO a SLANwTaP^B ADUa 9 I N JdT 


117 - 

117000 

a/^ITE 

<10*# 2255 ) R1#p?#RL 


111 - 

315*00 0 

3 0J13_ '’SRIAT ( < l'i£4X, 1 SR3ITTR WFI3HT SU11ARY’, 


313 - 

113*000 

aon rsR~UT(/.4X< GRru p <ARE*«'#F5»0» » ) *»23X, 


32^ - 

330*000 

l'C.^Oi 1 )') 


i?l - 

HI *000 

aa?3 r-iRHAT (AX, 'B*CIC 5TRUCT,URE'#18X#F9»0» 


IP? - 

1?’O00 

1 /# 9X> 

•TSRjJE HX EXP?3E'»2X# r 9»0» 


ipi - 

131*000 

1/# ?Va 

'LEA3IN3 E33E ' » 7X,F9«0# 


3 P* - 

314 « 33Q 

4 / # ?Ya 

• trailing eojE'jSXiFso/ 


1?1 - 

115*000 

5/. 5y, 

'SECSHDAPV STRUCTURE'#1*X»F90, 


IP*, - 

135.030 

5/a IYa 

'-•L.3* pR0VIS15'IS'»2X#F9*O# _ . 


1?7 " 

IP 7 . 00 0 

7/1 5 X # 

•O1MTR0L SURFACE' i 18X*F9.3» 


Ipc - 

1PM . 000 

M/OY. 

, 3^EL- , M4XaP9*0a 


l?-> - 

IPIOOO 

?/, ?Y, 

'->RFvE R|3'#13X,F90# 


333 - 

mono 

*./# IX# 

1 -*TN TtZ » a 14Xa r9*Q» 


331 - 

in .000 


' ATTACM'/l 3X#F90* 


up - 

up * 000 

\/* 5 Ya 

' I M ", i«E I3HT C9'ISTA'JT'»13X#F9*0> 


ill - 

113*000 

3010 rntMAT ( 4X0 T* IL GHU 0 ( AREA* » a F5*0a 1 ) 1 a 23Xa 


114 - 

114.000 

1 » ( * »ri*o# » ) t ) 


113 - 

115.000 

3343 riBUT (f x, 'BARIC RTRUCTURE'#1SX#F9#0» 


_115_ - 

335 * 300 

1 / # 1 Y | 

♦THOJE B q x»/?XO?*0/ 


117 - 

117000 

P / O Y I 

• LE * 1 1 N 3 f33E',7X,F9.0» 


in . 

n«O0 0 

3 / a 5 Y , 

' C3NT a°L EJ9FACE'#18X#F9.0# 


in - 

111000 

4/OY# 

t4XAF9.0. 


14 •) - 

143.000 

5/. 1 Y # 

'3=IvE ?I3>,13X»e9.0# 


141 - 

14 1 *100 

5/a ?Y a 

1 H I \r,E '#14X09*0* 


1 4 P - 

14 ?• 300 

7/OY, 

' ATTACH' ; 13X,F9.3c ........ 


141 • 

141*000 

*/ a 5 Y a 

' T a r L K'En-tT C0'J3TAMT'»13X,F9»O> 


144 - 

144O00 

2050 

T(4x,'«3nY 359u°’i 35X# • ( '#F90# * ) • ) 


143 - 

143* 000 

?050 F49M* 

T ( 1 \ 4 A ' F >/ 0 'aRXaOTRSMXa'AFTM 


145 - 

145 . 110 

?070 

T(AX,'0fc;iC 0TPj;TU9F** 


14 7 - 

147000 

1 /# 9 Y a 

, 5IipwALL5*Al0X* r 9*OA?XiF9.O#lX#F9*O# 


141 - 

14 « . 300 

P/a Ha 

» L ^M-rc?^Mqt # PlX# c ‘i*OAlX#F9fO/ 


141 - 

141 .OOO 

3 / # 1 X , 

'FPa^Fc; i aP4XaF9*0a IXaFQ*^# 


isn - 

150000 

4/OY, 

’ « ! ju<hf; aps » a ?l Xa o*0a 


151 - 

151 *100 

5/0* . 

»C1E^ C S T. PP9V* • A 4X>F9*0# 


?5? - 

1 5 P • 00 0 

5/* H* 

' >f? M19HIEL0 PR9V* ' a 3XaF9.0a 


?5? - 

351*000 

7/OY, 

» v i q 1 E w-*L*wEL PR3V ' a ?X a F 9 # 0# 


154 - 

154000 

«/OY, 

»payl4A0 PEAOT I9M' a 14Xa p 9*0# 


m3 • 

155000' 

*# / a 1 Y i 

'^IN; GAPPY THP J* 1 a 1 4 X a p 9 • 0# 


155 - 

155000 

*/OY, 

'aJMs SHPAP PRRV* 1 a14XaP9*0# 


1S7 - 

157*000 

I/O*, 

•THRUST GTRU3TURi'«85X*F9«0# 


?51 - 

151*100 

P/a IX, 

'TAIL PHV. » a 3 1 X a F 9 • Oa 


151 • 

151*000 

3/ a 5 X a 

>5JB TBTAU'»13X»f?*0»?X*F9.0#8X*F9.0< 


153 • 

150.100 

4/a^; 

'SEC^MDAPY STRUCTURE'# 


151 * 

151*000 

5/a IXa 

•C*R33 3SSR SHELL '» 1AX#F9.0» 


153 - 

153000 

5/a 1Y, 

»CAm 0°^R MEC^* ' a 1 4X a F9 • o# 


151 - 

153000 

7/a5X, 

,m I5CELLANE9JS WTS* , /4XaF?.0a2XaF9.0a2X # F9*0a 


154 - 

154 OOO 

M/a 5Ya 

•TSTA.'#17X#F9*0#SX#F90»2X#F9*0) 
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955 

- 

OSS. 000 

P3*0 F^R'IAT ( 4X, * I NO'JCEO ENVIR9N. PP9TO#?3x# 

IAS 

- 

OSS. 000 

1 * r • #r?o# * ) * ) 


• 

o S 7 • 00 0 

£010 r 9PMA 

T ( SX# » Wl NG* p ?9XOP. 0# _____ 

9S* 


95* • o o o 

^ 1 /# 9V# 

'SJPFACE D AN2LS»#5X#F90# 

9*1 

- 

95?* ^OO 

?/#?X# 

1 L E A 1 1 N 3 EDGE • *7X#F9*0# 

9 70 


070000 

9 / 1 5 X * 

'TAI L '>2ax»F90* 

971 


071 • O00 

4/# ?y» 

'SJ9f*CE '»A')ELS'«5y»F'’*0# 

07? 


?7? • n O0 

5 / » IX# 

' L F A |0 1 N 3 P 03E * # 7X# F9 • 0# 

070 


070. 000 

S/l sv# 

ip«nv* # ?^xi Fi*o# 

774 


074. 000 

. 7/#?x# 

•M90V PANELS ' t 8 X# F9*0# / 

975 


075*000 

* / # ? X # 

’ ° A 5F ' # 1 sx , F 9 • 0# 

97A 


974000 

?/# ?x# 

1 INTERNAL T d S'/7X#F90# 

077 


077*000 

5/# ?x# 

»P90Y CN^T TPS WT* * $ 2X09 • o* 

97* 


07*000 

1 /# sv, 

♦MTS CC'JT. S J3FACE 1 • 1 SX# F9 • 0# 

o 70 


070 . “‘00 

?/» S V, 

♦LAMl ♦ P**:<ING , #19X,F9 # 0, 

or-T 


03“ 

1 /# SY, 

• PP9FJtSI9N , #?9X#F9*0# 

OM1 


001 .000 

4 /# 4 Y , 

topjvF 3 ^wER'#22X#F9*0# 

0 7 3 


195,0')'} 

5/ # 5 x # 

*-!Y0?auLIC5»#?3X#F9«O# 

TP"} 


OR 0 . noo 

4/# 4X# 

'SjaF»CE 17y*P9*0) 

13U 


0 R 4 . 0 0 0 

?100 f?rya T < 1 1 * , 3X, » L ANOI N 1 * D0C<IN3*#28X, * ( , #r9*0# 1 ) f ) 

IP' 


055*000 

?110 f^p^a T ( sx# * N5SE GEAR* # ?4X/F_90/ 

OR S 


OR s . OOO 

1 /# ?x# 

♦pill GEA9*# tOX# r 9*0# 

1*7 


9*7000 

?/Ov# 

» STRUCT J&E * # l0X# r 9*0# 

OR 7 


00* * 000 

a/* ax, 

• CIMTIOL-'# 1 1 X/F?t 0 # 

OR 0 


00 9*000 

4 / # 4 X , 

’MAIN GE ' # ?4X# FI * 0 # 

ooo 


010*000 

5/# ^x# 

♦PILL GE AR * # 1 OX# r 9» 0# 

00} 


001 *oo0 

S/a IX# 

'aTPjCTJ^E , #10A« e '?*3» 

OOP 


01?. 000 

7/# ?Y, 

♦ C 9 NT P l T # 1 1 x, F9. o# 

OOO 


090*000 

R/# 4 y, 

’AJXILIA^Y SYSTEMS* #16X#F9tO# 

034 


014 . noo 

0/# ?x# 

• O r Cr LE. ^ A T I f^NJ SY5'#3X»F90» 

O^^ 


015*000 

1 /# IV, 

»rfpaPATI9N SVS 1 # 5X# Fl.O# 

? 1 4 


OIS. 000 

?/# ?X, 

' M A VI 0L I NG i MANIO»,3X#F9*0 a 

007 


017 . 100 

9/# SX# 

* m T SfF ( LAN"9.J5*#?0X#F9*0) 

0 OR 


-01* 000" 

pi ?0 Ff>PHA t ( 4X, • PR*PJL5 I 9N MAIN ASCENT * # 23x# * ( f # F9* 0/ 1 ) * ) 

poo 


000*000 

? 1 90 fmpya 

T(<,y, 'EM'-,I\IE3*ACE? t ;9«IE:S'M5X*F9.3» 

4 00 


4 0 3 O 0 0 

1 /# ?x# 

' EMOI ME? ' # l?y#F90» 

401 


401 • 000 

p/# IX, 

» GI hr al pY3TEM»,SX#F9*0# 

4 03 


40?. 000 

9/# lx# 

♦CONTlML^WllX/Fl.l# 

4 00 


400.100 

4/# IX, 

»pqhpf ll anT JT IL1 7 1 » ?X#FR.o# 

4 04 

“ 

404.000 

5 /# S V # 

•P3 90FLL.ANT SYSTE M, #16X#F9*0# 

4 OS 


4 OS . 100 

S/, ?x, 

♦FILL & ^3 A I N ’ #7X#FR*0# 

4 OS 


405.000 

7/# ly# 

’OiESSU^I ZATI9N*#5X#FP*0# 

4 07 


407*000 

R/# IX# 

•CHILL OHM? L I NE3 » # 3X#F9. 0, 

4 OR 


40*000 

9/# ?X# 

'ppf VALVES' # 9X# r ?*0# 

400 


40?*000 

s / , ? X # 

'F'^ S Y ft f ^ * ,RX#L9*0/ 

4 1 0 


41 0*000 

1/# IX, 

'OISC^NNECTS' #RX#F9*0# 

411 


411 .*>00 

2/# ?x, 

' ‘ 1 I < ?CELLA'JE^J? , #6y» r 9*0) 

41? 


41?. 000 

3140 rniMAT { 4X, * P9 n ?JLSl0N/ AIR 5RE A TM * # 24 X , * { * * F 9 • 0 # * ) ' ) 

4 10 


419*000 

3150 fsrmaT (4X, *PR*pJLSI9N AUXILI ARY*#25X# 

4 1 4 


414. 000 

I'M #F*. !,')») 

4 1 0 


415* ^0 0 

3 isn format ( 4 x • ' A 0 f SYSTEM* #23X#F90* 

41S 


415*000 

1 /« ax# 

'Thrj STEMS' # 10X# r 9«0# 

417 


417*000 

?/#ix# 

» pr S3 • SYSTEM ' # 7X# F9*0# 

4 1^, 


41**000 

9/# IX# 

' TAN*'*# 1SX#F9*0# 

4 1 0 


411*000 

*»/# 9X# 

'MSOJLE' #13X,F90, 

4 ?0 


*20000 

5/ # 4 X # 

*SAMq SYSTEM* # 22X#F9*0# 

4 ? 1 


4?t OOO 

S/# 9 X # 

'THPjSTE^S'aIOXiC-I^O# 

4?? 


4 ? ? • o 0 0 

7/#9X# 

* PPSP* SYSTEM* #7X#F9*0# 

420 


4? 9 • 00 0 

R/# 9X# 

’ TANS * # 1SX# F9* 0# 

4?4 


4 ? 4 • 000 

9 /# ix. 

' y?DJlE'»13X#E90) 

4?5 


4 ? 5 • 000 

3170 FftOMAT ( 4X, »PRTMF ?9wE9 , #34X# * { * #F9*0* ' > *) 
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4 ?6 


436 

033 

?1«3 f^nTUX, 'ELECTRICAL'»35X, '( '#*90# ' ) • > 

4 ? 7 


4?7 

033 

21*0 rqR0AT(4X, 'HYDRAULIC' * 36 X, ' ( ' , F9»0» ' > • ) 

4?a 


4 ? * 

003 

2230. format ( ax, 'SJRFACE CONTROLS • »29X# '< '#F9.0# ' ) ' ) 



4P7 

033 

p?10 FORMAT! 4 X, 'AYI9NICS'»37X, < < • »F9.0# ' > ' ) 

4*7 


437 

• 733 

2220 PORHATUX, 'ENVIRONMENTAL CONTROL '# 24X, '{•# F9, 0# ')' > 

4 31 


431 

033 

??30 FORMAT (AX, ' PERSONNEL °P0 V I 3 1 9NS ' # 25X# ' ( ' # F9 O, ' > ' > 

4^? 


433 

033 

2235 mRMAT(4x, , MI5CELL*NE9 i JS'#32X# ' { '#*9»0> • ) ' ) 

4** 


433 

033 

3? AO fo ro a T ( a X, •GR''HTH/UNCEPTAINTY«#27X# • ( '#F9*3# ' ) • 

414 


434 

033 

1 # / P 4 ? > o - - - - . • » # / , 4 X , 

415 


435 

033 

?*79y ,,E I 5MT » # 34 X, > ( ( ’ »F9»0j ’ > ) ' ) 

416 


436 

030 

2245 f^rmaTi//, • i >, pax, '9R3ITER MISSION HISTORY » ) 

437 


437 

•733 

a?50 Fit? ‘ 1 AT ( /, 4X# »79Y WEI3HT' j 13X* ' ( '#F9«0/ 1 ) 

4 3 


43* 

033 

l/»6y, , PER5'*NNFL'#13X»PR.O, 

4 17 


433 

033 

?/,6X,'0R9 RESn prop «|T. '#5X#*9.0# 

4 4 n 


443 

033 

?/#6y, 'PAVL4A3 J?» # 12X09.0# 

441 


441 

030 

A/, AX# ' INERT WEIGHT' ilix# '( ' * r 9 • 6* ') '* 

44? 


44 ? 

033 

5/*6V03*R =?F5V ° R 3 ? ^»'#5Xi r 9*0» 

443 


44 3 

033 

6/,6y»'9R“ I N*L I 3HT LOSSES'. 3X,F9«0* 

4 44 


44 4 

033 

7/« 6y» ' ACS = ROP HT'#11X#F9.0# 

4 4 5 


44 5 

033 

B/.6X,'9AMS PR*® WT ' , 13X#F9»o» 

44 * 


446 

• 733 

3/»6X«'0RR TRAPED =P9P *T'»4X»F9.0, 

447 


44 7 

030 

5/# 4X0 GPAqg WTOR*-5N l .v)» # 5X#M , #F9.0,t)»# 

44 3 


44 * 

033 

1//#6X# » (LAND »WT PAY* * # F6»0# * > f # 

443 


44 3 

033 

?/» Ax, 'LANDING HEIGHT' ,9X, ' < ».F9.0, • ) ', 

4 S3 


453 

033 

3/, 6 x, ' ( I N jE HT RAY>'#*&>0# ' ) '# 

4 


451 

003 

A / • 4 x , ' INJECTED HEIGHT' , 8x# « ( ' , F9« 0# » > ' > 

451 


45? 

• 333 

PP55 format ( //, 6X» 'INTER STAGE REACTIONS • 

453 


453 

030 

l#/OXi »Rl*SlXfF90 

454 


454 

007 

?# /OXj » R?« MXiFJO 

4 55 


455 

OOO 

3, /, PX, 'Rl. ' , 1X,F9.3 ) 

455 


456 

OOO 

A3 IF(3lHPTX.3T*n,3,AN0*L9N3P.GT.3.0) GB TO 9999 

457 


457 

030 

C 

4 t; o 


45* 

033 

C 3 r T 4 I i.29 EXTERNAL TAN< WEI3HT STATEMENT 

4 5') 


453 

• 733 

C 

4 6^ 


463 

033 

WPlTE(n*,T030) 

4M 


461 

030 

IF (31.<H3,r3,l« ) 39 TO 45 

45? 


46? 

030 

30 TO 50 

453 


463 

030 

45 IF(rxTHO.GT.EXTHH) GO TO 55 

454 


464 

OOO 

H P I T E t 100,3010) 

455 


465 

•'700 

30 TO AO 

465 


466 

OOO 

50 IF(5L<H0.E3«3» ) 30 TO 65 

467 


467 

030 

3” TH 70 

464 


46* 

070 

65 WPITEI 10*, 3050) 

463 


463 

OOO 

70 If ( EXTH0 .,T.EvTHH) GO TO 75 

473 


473 

OOO 

HRI TE ( 100, 3030 ) 

471 


471 

• 700 

TO 60 

47? 


47? 

070 

55 HR I TE ( 1 00, 3020 ) 

473 


47* 

030 

3" TO 63 

474 


474 

000 

75 H«ITE(10«,3C4n) 

4 75 


475 

030 

60 W° I TE 1 1 9*» 3C60 ) EXTL,ExT3 

4 76 


4 7 6 

OOO 

HR I TE ( 1 0«»3070)3933R“.T9TPS*f>OT'<*faIRT,Fw0BlF,fccTPS, 

477 


477 

000 

5C0NSCT,TPSlN,rYLSCT, ACVDH, AFT3L r » WINT.PROSy# AFTN<, 

47* 


47* 

OOO 

3FF03Y5,pwD 3L*, b RSVNT 

473 


473 

030 

HP I TE( 100, 300^ (AFTCYL* SUMP, APTSLA,PNPU#TH I NT, N9S r AR# 

4*7 


433 

030 

SAVIONT, JM0ONL,HRETP0, TUNNEL# MJSCT, 3AFF# SU90RY 

4*1 


4*1 

033 

HP I TE ( 100,309n)3U3DRY,3U#0PYHT#RESIDT, JNDPAN,FEE3TR# 

4P? 


4* ? 

030 

5PPR.IRT,FRI AS, INERT# PROPOT, SROSSHtTLAHB 

4*3 


4*3 

• 300 

3000 format ( ' i < « i Sx# 'External tank height summary') 

4*4 


4*4 

030 

3010 FORHAT ( pox, ' C^MHSN 3JL<HEAD-L9X FHD') 

4*5 


4*5 

OOO 

30 3 0 FORHAT ( ?0X, ' COHH0N 9UL<HEA0-L9X AFT') 

4*6 


4*6 

030 

3030 FriRHAT ( 20X, • SFOARATE BULKHE Ap-LBX F*lD') 
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447 

4 

1 1 o“» 


4P1 


457. 300 TOAJ F»p«iAT ( ??y* ' SEPARATE AUlkHEAD-LBX AFT') 

4AA.300 3050 F*wiaT( 10X» 'ALTERNATE F^O SECT I9N( Wl TMBUT NBSE p AI«INQ)') 

J» SB. 030 3DS0 fienTl /.?5*» ’ L fnOTH« 1 . 2X. F5. 0. /. 25X< ' Q I A METER* ’ t F5 « Q 1 

4*3 030 3070 c»smaT( /2R*. 'w'EIQMT ' » 3 AX# • WEI3HT ' /?.*» • -LB. ' » 2AX. '-LB*'// 


4*1 

- 

411 OOO 

5*X# • 

4 07 ) 

- 

413. POO 

5*V# » 

4*3 

- 

433.133 

53X# • 

4*4 

• 

4iu • 113 

53V, • ' 

4*~ 

- 

_4?5. IQ^ 

54V* •« 

4^ 


41*003 

55V# *1 

417 


417000 

54># •: 

4 n c 


41*. 000 

55 v # » 

4*1 


413* noo 

54 X# • 

501 


500.000 

55V# * 



501 . 000 

54y# » 

sip 


50*003 * 

53V# * 

% n 


503.003 

55 X # • 

H('4 


594*003 

53V# • 

535 


505000 

53V# • 

535 


505000 

54V# • 

5*7 


5 0 7 • 0 0 0 

55 X # 1 

53 ^ 


5 OH OOO” 

30* O" 

531 


503003 

55v, » 

M* 


510003 

54X, 1 

*n 


51 1 « *33 

55X, f 

5 1 3 


51*033 

L3X# » 

51 1 


«1 3. 00 O 

53V# • 

S ] 4 


51 4 . 033* 

5*x , * 

515 


515003 

5 3 X * » 

5 1 5 


515003 

K?x , t 1 

517 


51 7*030 

5 3 X , • 

51 * 


51 3033 

5 * X , » 

51* 


51 3 . "00 _ 

5 3 X , » 

5?3 


5*0030 

5 » - - 

5*1 


5*1 033 

5 3 4 x , 



5**003 

3090 

s; j 


5*3033 

5 1 * X , 

5 3/* 


5?4. 033 

5 1 * X • 

5?3 


5*5003 

51 ix. 



5*5033 " 

5 1 * x , 

557 


5P7 . *03 

5*0* , 

5?1 


5**033 

550*, 

551 


551.000 

5*0X, 

*3 75 


530.130 

5 50 X , 

5?l 


531 OOO 

51**# 

Ml? 


53*.O00 

5 1 ix , 

571 


533000 

51 ix, 

554 


514033 

51**# 

555 


535033 

519X, 

515 


535033 

5 1 9 X , 

537 


537.000 

3919 C° V T 

535 


51*000 

9ETJ 

53* 

- 

539.000 

END 


BODY ">3f>JP'»9X# ' I '.FA.O.' ** 

I NO • E'JVlPN. pRBT. I*. FA.O#* 
FO TAMA'.IO*. • ( '.FB.O# ' )'# 
N'dE F A I R I N3 ' .7X.FA.0Z 

p .O PU'-XH r *3'i^X/ p S*0t 

r*D C*"JE A CYL* '. AX# p x*0/ 
CPVICal SECTIBN '*FP*0# 

I NTEP TANK'.9X»F80/ 
CYLINDRICAL SECT* '* p R*0* 

A p T CYl 5 D5ME ' *5x.FA.O/ 

AFT BJLXHFAOdiXifxO/ 

INTER tank- 5E-T. ( ' *F8«0# ' 

»P1»rLL*'JT SYSTEM* 


•/ 


I'. FA.O#' '/ 


aft TAMK'#10X*'J'#FK*0»' )'# 

FEES SYSTEM', AX, FA.O/ 
f(] BUL*.MEAD'»8X#FA.0» 

pres. and vent 1 *5x,ra.o) 

AT (4X, 'CYLINDRICAL SECT. '#F8.0# 
SJ^ps A VERTEX CT’. ' # F* • 0/ 

AFT H,IL<-' c 'A3'.6X#f».0# 

•NE'JMaT I C A PJ SYS ' . FA.O/ 
AB3/ B STR/TAN< ATT. < ' #F«.0# ' )'/ 

vj“SF fa I ? T M3 ♦ .S X# ' ( 1 /FA * 3* » )'» 
AVl^NICS'.llX. ' I ' . F8 • 0# ' '/ 

J y u I L I C A PANEL ('.FA. 3,' )'. 

OETP'MT SYSTEM' ,5X. • | '.FS.3. ' '/ 

TJNNEl*. IPX. • ( '.FSO, ' )', 

MISCELLANF3JS' »6X. » I '»F8«0. ' '/ 

3ArrLFS-- l) X' » 7X» ' ( »«F8.Q« ' )», 




•SUBTOTAL DRY WEI3MT'.F9*0/) 

AT ( 1 *x. ' SUBTOTAL OPY XEI5MT' »F9*3// 
SPAuTM/JNCEPTAINTv I '.FA. 3.' '/ 

/ 


DRY ^iEIjMT' .3K .F3.0 // 


5ESI0JA. °35 3 ELLAVTl '.FA. 3, ' 

tank Jn3 0 *1NA9lE'.3x.fa.O/ 

FEE () L i TRAPPED' .3X.F8.0/ 
BRFSSJRANT'#9X#FS.O/ 

PJ BIAS' .12X.FSO/ 


»/ 


•'/ 


inept *ei34T'.7x.f9.o// 
JSAAlE PP3°ELLANT l'.F9*0.' 


TOTAL bPASS KlISMT '.F9*0// 
LA10OA*XPRSP/WG93SS»'.F6*A) 
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